MDI приложения

Code:

TMainForm

...

object SpeedBar: TPanel

...

Align = alTop

BevelOuter = bvNone

object ToolBar: TPanel

...

Align = alLeft

BevelOuter = bvNone

end

object RxSplitter1: TRxSplitter

...

ControlFirst = ToolBar

ControlSecond = ChildBar

Align = alLeft

BevelOuter = bvLowered

end

object ChildBar: TPanel

...

Align = alClient

BevelOuter = bvNone

end

end

TMdiChild {пpородитель всех остальных}

...

object pnToolBar: TPanel

...

Align = alTop

BevelOuter = bvNone

Visible = False

end

procedure TMDIForm.FormActivate(Sender: TObject);

begin

pnToolBar.Parent := MainForm.ChildBar;

pnToolBar.Visible := True;

end;

procedure TMDIForm.FormDeactivate(Sender: TObject);

begin

pnToolBar.Visible := false;

pnToolBar.Parent := self

end;