Panel, ToolBar, CoolBar

Code:

procedure TForm1.FormShow(Sender: TObject);

begin

Form2.Show;

end;

Code:

private

procedure CreateParams(var Params: TCreateParams); override;

...

procedure TForm2.CreateParams(var Params: TCreateParams);

begin

inherited;

with Params do

begin

   Style := Style or WS_OVERLAPPED;

   WndParent := Form1.Handle;

end;

end;