比如鼠标左键点击form中的一个button就可以移动整个窗体,只需在其mousemove事件中加入以下代码。
procedure TForm1.btn1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; SendMessage(Self.Handle,WM_SYSCOMMAND,SC_MOVE+1,0); end;
比如鼠标左键点击form中的一个button就可以移动整个窗体,只需在其mousemove事件中加入以下代码。
procedure TForm1.btn1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; SendMessage(Self.Handle,WM_SYSCOMMAND,SC_MOVE+1,0); end;
转载于:https://www.cnblogs.com/hejoy91/archive/2013/05/29/3106021.html