您的位置:首页 > 编程语言 > Delphi

在DELPHI中实现无标题窗体的移动最简单的方法

2010-04-17 16:54 225 查看
在窗体的OnMouseDown事件中加入下面几行代码即可

If Button = mbleft Then
begin
ReleaseCapture;
SendMessage(MainForm.Handle,WM_NCLBUTTONDOWN,HTCAPTION,0);
end;


若窗体的表面被别的控件履盖掉,则需要把上面的代码加入履盖的控件里面。
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: