FormBorderStyle为None时拖动窗体

来源:互联网 发布:mac照片管理 编辑:程序博客网 时间:2024/05/20 06:50
procedure FormMouseMove(Sender: TObject; Shift: TShiftState;  X, Y: Integer);begin  if (ssleft in Shift) then  begin    releasecapture;    perform(wm_syscommand, $F012, 0);  end;end;

0 0
原创粉丝点击