社区
Delphi
帖子详情
delphi 的停靠问题
daozhao
2000-02-16 10:09:00
本人在写一个程序的界面要求和delphi的IDE界面差不多.但在写的过程中遇到不少的问题。除了Dragkind和DraMode设为dkDock,dmAutomatic 还有属性要设或什么过程要写
...全文
180
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
5,388
社区成员
262,731
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章