社区
Delphi
帖子详情
delphi 的停靠问题
daozhao
2000-02-16 10:09:00
本人在写一个程序的界面要求和delphi的IDE界面差不多.但在写的过程中遇到不少的问题。除了Dragkind和DraMode设为dkDock,dmAutomatic 还有属性要设或什么过程要写
...全文
174
4
打赏
收藏
delphi 的停靠问题
本人在写一个程序的界面要求和delphi的IDE界面差不多.但在写的过程中遇到不少的问题。除了Dragkind和DraMode设为dkDock,dmAutomatic 还有属性要设或什么过程要写
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Kingron
2001-05-14
打赏
举报
回复
提问者:如要继续讨论请定期提前贴子,如不想讨论请结束贴子。
LittleStar
2000-02-17
打赏
举报
回复
tb97这个控件试一下吧!
daozhao
2000-02-17
打赏
举报
回复
本人在写一个程序的界面要求和delphi的IDE界面差不多.但在写的过程中遇到不少的问题。窗体描述如下。 form运行开始时,不能拖着panel2的头拖动和click panel2的关闭按钮。必须click一下panel2后才可以拖着panel2的头拖动和click panel2的关闭按钮。还有,拖着panel2向controlbar1拖。不成功后,又不能拖着panel2的头拖动和click panel2的关闭按钮。又需click一下panel2或拖着panel2才可以拖动。
如果在设计时,在panel2上放一个treeview并Align=alClient。运行后不能拖动panel2和treeview这个整体。
如果在设计时,把panel2换成treeview,会有panel2时的问题。和被拖出来时没有caption。
窗体描述:
object Form1: TForm1
......
object ControlBar1: TControlBar
Left = 0
Top = 0
Width = 536
Height = 49
Align = alTop
TabOrder = 0
OnDockOver = ControlBar1DockOver
end
object Panel1: TPanel
Left = 0
Top = 49
Width = 57
Height = 299
Align = alLeft
Caption = 'Panel1'
DockSite = True
TabOrder = 1
object Panel2: TPanel
Left = 1
Top = 16
Width = 55
Height = 282
Caption = 'Panel2'
DragKind = dkDock
DragMode = dmAutomatic
TabOrder = 0
end
end
end
窗体的过程:
procedure TForm1.ControlBar1DockOver(Sender: TObject;
Source: TDragDockObject; X, Y: Integer; State: TDragState;
var Accept: Boolean);
begin
accept:=false;
end;
gypb
2000-02-17
打赏
举报
回复
还要将欲停靠的窗体的DOCKSITE设为TRUE
delphi
停靠
delphi
最强的
停靠
控件和demo很好的东东
Delphi
7 窗口
停靠
源码
在我的
Delphi
速成登峰里有一个相关的文章,可以看看
Delphi
XE10零基础实战快速入门
通过课堂上一个一个的实战例子,演示
Delphi
XE10的用法,最后通过一个完整的通讯录程序,让学员初步掌握软件开发的全部流程 让零基础学员快速入门
Delphi
编程,快速掌握
Delphi
的使用方法,并能够制作出自己的软件来。...
delphi
实现像QQ一样 窗口
停靠
delphi
实现像QQ一样 窗口
停靠
,可以停在窗口的四边,并会自动隐藏
Dock.zip_
DeLphi
dock_
delphi
docksite_
delphi
界面_dock_
停靠
delphi
界面 dock
停靠
,比较实用。
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章