码迷,mamicode.com
首页 > Windows程序 > 详细

鼠标拖动窗体

时间:2014-09-18 00:30:32      阅读:268      评论:0      收藏:0      [点我收藏+]

标签:io   ar   for   代码   on   c   r   res   as   

1.鼠标在客户区拖动窗口
重载消息函数 procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
inherited; //不可缺少
if (=Message.Result = HTCLIENT) then
Message.Result := HTCAPTION;
end;

2.鼠标在 Panel 上拖动窗口
在 Panel 的 OnMouseMove 事件中写入下代码:
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Self.Handle, WM_SYSCOMMAND, SC_MOVE + 1, 0);
end;

鼠标拖动窗体

标签:io   ar   for   代码   on   c   r   res   as   

原文地址:http://www.cnblogs.com/spiritofcloud/p/3978330.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!