能不能把panel控件设成在运行时可以用鼠标拖动! 有没有那样的属性? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 任意的拖动窗口procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture; Perform(WM_SYSCOMMAND,$f012,0);end;实际上,可以封装一下上面的代码,这样以后只要在控件的MouseMown中调用下面的函数就可以实现运行的时候拖动和改变控件的大小:procedure DragControl(WinControl:TWinControl);const SM=$F012;begin ReleaseCapture; WinControl.Perform(WM_SYSCOMMAND,SM,0);end;其中,$F012可以从$F000变换到$F012,其含义分别如下:$F000:哎,自己测试吧! findcsdn(findcsdn) 你的代码是拖动整个窗体。我只要拖动PANEL控件。 glmis(老基)朋友,看看人家下面那几行代码啊,那个函数 DragControl才是移动控件的。 如何调用上面的DragControl啊 ? dragkind = dkDockdragmode = dmAutomatic 设置这个panel的这两个属性就行了 也可以在利用panel 的 mousedown[鼠标定位] mousemove[改变panel left top 属性]事件中自己写。 楼主试过没有tpanel也是一个窗口啊。 Delphi遍历进程,并把需要的进程激活,显示该程序窗体 Delphi+ADO不能获取存储过程的返回值 偶是新手,请教高手帮忙解决,谢谢!!!! 数据库中修改数据! 关于获取CPU 硬盘,主板序列号的问题 Delphi可以开发操作系统吗? 文件传输: asynchronous socket error 10061 用DELPHI7写ISAPI的程序,总是提示出错! 如何清除listview所有内容 如何通过IdHTTP.post下载一个文件 Q:能否只将时间存入(不是日期,如08:30)SQL SERVER中的datetime类型中去? 如何存放? 各位大侠帮忙。
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND,$f012,0);
end;
实际上,可以封装一下上面的代码,这样以后只要在控件的MouseMown中调用下面的函数就可以实现运行的时候拖动和改变控件的大小:
procedure DragControl(WinControl:TWinControl);
const
SM=$F012;
begin
ReleaseCapture;
WinControl.Perform(WM_SYSCOMMAND,SM,0);
end;
其中,$F012可以从$F000变换到$F012,其含义分别如下:
$F000:哎,自己测试吧!
dragmode = dmAutomatic
mousedown[鼠标定位]
mousemove[改变panel left top 属性]
事件中自己写。