delphi 的停靠问题

daozhao 2000-02-16 10:09:00
本人在写一个程序的界面要求和delphi的IDE界面差不多.但在写的过程中遇到不少的问题。除了Dragkind和DraMode设为dkDock,dmAutomatic 还有属性要设或什么过程要写
...全文
172 4 打赏 收藏 转发到动态 举报
写回复
用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

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧