[Loca]

Всем привет, корч не дождался я ответа на прошлую мою тему, решил делать с формами.

План такой:
Главная форма (не родитель). На ней панелька и кнопки.

Вторая форма (не дочь) с компонентами. Создаётся вручную.

Вызов формы:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
if not Assigned(Form2) then
begin
       Form2:=TForm2.Create(application);
end;
       form2.Parent:=form1.Panel1;
form2.Show;
end;

Всё кул. Но как сделать что-бы перед этим панель уничтожала форму которая на ней уже есть?

Например хочу отобразить третью форму:

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
{и вот перед показом, нужно выполнить что то типа DestroyComponents только для уничтожения формы, которая на панели}

if not Assigned(Form3) then
begin
       Form3:=TForm3.Create(application);
end;
form3.Parent:=form1.Panel1;
form3.Show;
end;