社区
Delphi
帖子详情
delphi 的停靠问题
daozhao
2000-02-16 10:09:00
本人在写一个程序的界面要求和delphi的IDE界面差不多.但在写的过程中遇到不少的问题。除了Dragkind和DraMode设为dkDock,dmAutomatic 还有属性要设或什么过程要写
...全文
173
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
实现像QQ一样 窗口
停靠
delphi
实现像QQ一样 窗口
停靠
,可以停在窗口的四边,并会自动隐藏
Dock.zip_
DeLphi
dock_
delphi
docksite_
delphi
界面_dock_
停靠
delphi
界面 dock
停靠
,比较实用。
Delphi
图标按钮、智能
停靠
的窗体制作实例.rar
Delphi
图标按钮、智能
停靠
的窗体制作实例,基于
Delphi
实现的仿xp风格的窗体,另外实现窗体控件的
停靠
,不过存在有个
问题
就是toolbar
停靠
会出现
问题
,另外按钮横排可能会出现竖排……
Delphi
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章