delphi拖动窗体

【文件属性】：

文件名称：delphi拖动窗体

文件大小：268B

文件格式：TXT

更新时间：2015-11-05 08:18:22

delphi

procedure button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if btnWinmax.Hint='还原' then abort; if ssLeft in Shift then begin ReleaseCapture; SendMessage(Handle, WM_SYSCOMMAND, $F012, 0); //截获移动消息 end; end;