[Loca]

Сообщение от lmikle

На самом деле можно всеп упаковать в одну процедуру и вызывать ее в разных обработчиках:

Код:

procedure TForm1.ShowChildForm(AForm : TForm);
begin
  if not Assigned(ChildForm) then
  begin
     ChildForm.Hide;
     ChildForm.Parent := Nil;
     FreeAndNil(ChildForm);
  end;
  ChildForm := AForm;
  ChildForm.Parent:=form1.Panel1;
  ChildForm.Show;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowChildForm(TForm2.Create(Application));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowChildForm(TForm3.Create(Application));
end;

Бро, ты лучший!!! Спасибо огромное!!!

Всё получилось, работает идеально