如何抓著form本體如同抓著caption一般移動

有關Delphi 的語法, 程式, 等
回覆文章
頭像
tim
文章: 1380
註冊時間: 2008年 11月 26日, 00:49

如何抓著form本體如同抓著caption一般移動

文章 tim »

攔 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;
多多留言, 整理文章, 把經驗累積下來.....
回覆文章