关于窗体托动问题

Question

在工具栏中的onmousemove中用代码实现，这种方法比较复杂一点。别一种方法是能进发windows信息实现（较简单）。

Answer 1

to Ljhsoft
   对第二种方法，请举一简单例子，不胜感激！

Answer 2

在工具栏中的onmouseDown
   if(Button==mbLeft)
    {
       ReleaseCapture()
       Perform(WM_NCLBUTTONDOWN,HTCAPTIOB,0);
  }

Answer 3

在ToolBar的 MouseDown事件中加入即可实现.
procedure TForm1.ToolBar1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Perform(WM_SYSCOMMAND,$f012,0);
end;

Answer 4

private
  procedure WMNCHitTest(var M: TWMNCHitTest); message WM_NCHitTest;procedure WMNCHitTest(var M: TWMNCHitTest); message WM_NCHitTest;
begin
  inherited;
  if M.Result=htClient then
    M.Result:=htCaption;
end;