如何屏蔽移动窗口

Question

请问如何屏蔽移动窗口的操作、就是鼠标点击标题栏托动窗口、但是却不移动窗口。

Answer 1

wm_size这类的消息截获写，具体的消息是那个你看看messages单元找！

Answer 2

Private
procedure WMNCHitTest(var MSG: TWMNCHitTest); message WM_NCHITTEST;
........
procedure TForm1.WMNCHitTest(var MSG : TWMNCHitTest);
begin
  inherited;
  if Msg.Result  = HTCAPTION then
  MSG.Result:= HTCLIENT;
end;