如果没有使用Image控件覆盖窗体做美化,使用以下函数
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
PostMessage(Self.Handle,WM_SYSCOMMAND,SC_MOVE+1,0);
end;
如果使用了Image控件覆盖窗体做美化,使用以下函数
procedure TForm1.img1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(self.Handle, WM_SYSCOMMAND,SC_MOVE+HTCAPTION, 0);
end;