itop粉丝盛典:Delphi如何实现无边框窗体的移动?

来源：百度文库编辑：高校问答时间：2024/04/29 01:10:47

如题,现有Form1窗体,边框属性为0(无边框)
如何实现这种窗体通过鼠标拖动窗体任意位置而移动呢?
请写出程序有关代码,谢谢!

在控件的MouseDown事件中加入
if (ssleft in Shift) then
begin ReleaseCapture; Perform(WM_syscommand, $F012, 0);
end;
如form1：
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (ssleft in Shift) then
begin ReleaseCapture; Perform(WM_syscommand, $F012, 0);
end;
end;
end.

Delphi如何实现无边框窗体的移动? delphi的chart组件中如何实现曲线的移动 delphi如何关闭启动窗体 delphi中如何做基类窗体？如何进行delphi变量的窗体间传送 delphi中不用控制台如何建立没窗体的文件？ MSN的空间如何设置无边框? delphi如何何真正实现，关闭一个窗体的同时，就打开另一个窗口，当然不能用可见性，hide之内的 delphi窗体相互调用如何做! delphi中如何导入其他窗体文件？