滑鼠拖動表單

標籤：io   ar   for   代碼   on   c   r   res   as   

1.滑鼠在客戶區拖動視窗
重載訊息函數 procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
inherited; //不可缺少
if (=Message.Result = HTCLIENT) then
Message.Result := HTCAPTION;
end;

2.滑鼠在 Panel 上拖動視窗
在 Panel 的 OnMouseMove 事件中寫入下代碼：
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Self.Handle, WM_SYSCOMMAND, SC_MOVE + 1, 0);
end;

滑鼠拖動表單