如何抓著form本體如同抓著caption一般移動
發表於 : 2008年 11月 27日, 18:59
攔 WM_NCHITTEST 後, 判定 Msg.Result 是否為 HTCLIENT, 替換為 HTCAPTION 即可
代碼: 選擇全部
procedure mNCHITTEST(var Msg : TWMNCHitTest);message WM_NCHITTEST;
procedure Tform1.mNCHITTEST(var Msg : TWMNCHitTest);
begin
inherited;
if Msg.Result = HTCLIENT then
Msg.Result := HTCAPTION;
end;