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;
文件大小：268B
评论区