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;