Delphi如何自动隐藏MDI主窗体的toolbar工具栏?

Question

我在MDIform主窗体中的toolbar工具栏上打开新子窗体后，如后自动隐藏主窗体上的toolbar工具栏，当子窗体关闭后又自动显示??

Answer 1

打开新子窗体,的事件:隐藏一下toolbar工具栏;
子窗体关闭  ,的事件:显示一下toolbar工具栏;

Answer 2

在子窗口onclose时测一下，是不是最后一个子窗口procedure TF1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Fmain.MDIChildCount=1 then
 Fmain.coolbar1.Visible :=true;
end;procedure TF1.FormActivate(Sender: TObject);
begin
Fmain.toolbar1.Visible :=true;
end;