实现拖动无标题窗口的5种方法

最新推荐文章于 2023-02-12 17:25:42 发布

aroc_lo

最新推荐文章于 2023-02-12 17:25:42 发布

阅读量738

点赞数

分类专栏： DELPHI编程文章标签： integer button

DELPHI编程专栏收录该内容

378 篇文章 7 订阅

订阅专栏

1。MouseMove事件中加入：

// ReleaseCapture;
// Perform(WM_SYSCOMMAND, $F017 , 0);

2.MouseDown事件中加入：

// POSTMESSAGE(Self.Handle,WM_LBUTTONUP,0,0);
// POSTMESSAGE(Self.Handle,274,61458,0);

3.MouseDown事件中加入：

// ReleaseCapture;
// Perform(WM_SYSCOMMAND, $F012, 0);

4.截获WM_NCHITTEST消息

procedure WMNCHITTEST(var Msg:TWMNCHITTEST);message WM_NCHITTEST;

procedure TForm1.WMNCHITTEST(var Msg: TWMNCHITTEST);
begin
inherited;
//Msg.Result:=HTCaption;
end;

private
procedure AppMessage(var Msg:TMsg;var Handled:Boolean);

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:=AppMessage;
end;

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
//(GetKeyState(vk_CONTROL) < 0)
if (Msg.message=WM_LButtonDown) and
                 (DefWindowProc(Handle,WM_NCHitTest,
                 0,GetMessagePos)=HTClient) and
                 (True) then
begin
    SendMessage(Handle,WM_NCLButtonDown,
    HTCaption,GetMessagePos);
    //发送鼠标在标题栏内按下的消息
   Handled:=true;
end;
end;

在MousDown事件中写
ReleaseCapture;//释放鼠标控制区域
SendMessage(Handle,WM_SYSCOMMAND,SC_MOVE+HTCaption,0);//发送移动标题栏消息
如，要在Panel上可以移动窗口
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Handle,WM_SYSCOMMAND,SC_MOVE+HTCaption,0);
end;