通过控件移动窗体 标签： integer 20080520 16:13 342人阅读 评论(0) 收藏

所谓通过控件移动窗体，常用于无边框窗口的移动，需要通过拖动某个控件来使整个窗体移动。

简单总结下两种方法

方法1：HTCLIENT转换为HTCAPTION

函数定义

  private
    { Private declarations }
    procedure WMNCHitTest(var Msg:TWMNCHitTest);message WM_NCHITTEST;

函数实现

procedure TmForm.WMNCHitTest(var Msg:TWMNCHitTest);
var
  p: TPoint;
begin
  DefaultHandler(Msg);

  if Msg.Result = HTCLIENT then begin
  with JvHTLabel1 do begin
    p.X:= Left; p.Y:= Top;
    p := Application.MainForm.ClientToScreen(p);
    if (Msg.XPos > p.X) and (Msg.XPos < p.X + Width) and
       (Msg.YPos > p.Y) and (Msg.YPos < p.Y + Height) then
    begin
      Msg.Result:= HTCAPTION;
      SetCursor(LoadCursor(0,IDC_SIZEALL));
    end;
  end;
  end;
end;

方法2：发送系统消息

给目标控件添加OnMouseDown消息处理函数，实现方法很简单

procedure TmForm.JvHTLabel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SetCursor(LoadCursor(0,IDC_SIZEALL));
  Perform(WM_SYSCOMMAND,$F012,0);
end;