制作从屏幕右下角逐渐弹出的消息提示框[5]

    releasecapture;
    perform(wm_syscommand, $f002, 0);
end;

//下面代码判断鼠标所在位置，并改变鼠标光标，提示用户可以拖动窗体或改变大小
procedure tfrmpshotkey.imgtitlebarmousemove(sender: tobject;
  shift: tshiftstate; x, y: integer);
begin
    if x < 5 then imgtitlebar.cursor := crsizenwse
    else if x > width - 5 then imgtitlebar.cursor := crsizenesw
    else if y < 3 then imgtitlebar.cursor := crsizens
    else imgtitlebar.cursor := crsizeall;
end;

procedure tfrmpshotkey.label11mousemove(sender: tobject;
  shift: tshiftstate; x, y: integer);
begin
    if x < 5 then label11.cursor := crsizenesw
    else if x > width - 5 then label11.cursor := crsizenwse
    else label11.cursor := crsizens;
end;

end.