MDI приложения

Code:

procedure TMainForm.SetBands(AControls: array of TWinControl;

ABreaks: array of boolean);

var

i: integer;

begin

with CoolBar do

begin

   for i:=0 to High(AControls) do

   begin

     if Bands.Count=succ(i) then

       TCoolBand.Create(Bands);

     with Bands[succ(i)] do

     begin

       if Assigned(Control) then

         Control.Hide;

       MinHeight:=AControls[i].Height;

       Break:=ABreaks[i];

       Control:=AControls[i];

       Control.Show;

       Visible:=true;

     end

   end;

   for i:=High(AControls)+2 to pred(Bands.Count) do

     Bands[i].Free

end

end;

Code:

procedure TMsgForm.FormActivate(Sender: TObject);

begin

MainForm.SetBands([ToolBar],[false])

end;

Code:

AutoSize := false;

try

...

finally

AutoSize := true;