当前位置：编程文档 >> DELPHI >> 拖动无标题栏窗体的方法

拖动无标题栏窗体的方法

所属类别：DELPHI
推荐指数：★★☆
文档人气：80
本周人气：2
发布日期：2007-5-11

在任何控件的MouseDown事件中加入相似代码，可以实现点任何控件拖动窗体。
procedure TVolumeForm.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const SC_DRAGMOVE:Longint=$F012;
begin
ReleaseCapture;
SendMessage(Handle,WM_SYSCOMMAND,SC_DRAGMOVE,0);
end;
end.

文档说明：

感谢您访问编程论坛，如果您发现错误或其它问题，请在论坛发帖或通知我们。
本站属于非营利性网站，如果我不慎侵犯了您的权力，希望您能谅解或通知我该如何处理。
欢迎广大作者或站点给我提供相关资料，谢谢支持！