Question

我创建了一个应用程序, 由主格式和多个 MDI 儿童表格组成。 Im 使用来自 TMS 组件的 AdvDockPanel 和 AdvToolbar 。我的主要表格是表格上、下、左、右两侧的 AdvDockPanel, 以显示 AdvToolbar 。

每个儿童表格都含有AdvToolbar, 并在创建这些表格时, AdvToolbar。父子关系被设置在主形式上的AdvDock小组。最初, AdvToolbar是假的, 在启动每个MDI儿童表格I时, 将它设置为真实的。

总而言之,在启动MDI儿童表格时,我想在主 Form.AdvDock Panel 上展示AdvToolbar, 并把它关闭,我要把它隐藏起来。

除非我试图将AdvToolbar从一个AdvDockPannel拖到另一个AdvDockPanel时,

I ve debugged it and found where this Exception is raised. It s in Vcl.Forms. procedure TCustomForm.CMShowingChanged(var Message: TMessage);

所以,我想知道是否有办法展示AdvToolbar 从我活跃的MDIChild Form主论坛的MDI儿童表格中展示出来同时可以在我的主论坛中拖动我的工具栏。

谢谢

Charles

Answer 1

您可以检查工具栏的当前父页是否为 TVloingWindow( 拖动工具栏时为父页 ) :

procedure TForm25.FormDeactivate(Sender: TObject);
begin
   if not (orgaadvtoolbar1.Parent is TFloatingWindow) then
      OrgaAdvToolBar1.visible:=false;
end;

TAdvToolBar.Drlagging 不起作用, 因为 TAdvToolbar 使用自己的拖动旗除法, 但不是属性, 所以只有修改 TMS 软件源代码时, 您才能访问变量。

友情链接