[Loca]

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

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

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

Вызов формы:

Код:

1 2 3 4 5 6 7 8 9

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

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11

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;

[Alegun]

Какие высокие семейные отношения :-) Это панелька на форме, а не наоборот, и у формы есть метод .Free для утилизации

[lmikle]

В таком виде - никак, т.к. нет информации о существующей форме (
точнее, она есть, но добираться неудобно). Сохраняй где-нит указатель на текущую форму.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

type   TForm1 = class(TForm)   ...   private     ChildForm : TForm   ...   end;   procedure TForm1.Button1Click(Sender: TObject); begin   if not Assigned(ChildForm) then   begin      ChildForm.Hide;      ChildForm.Parent := Nil;      FreeAndNil(ChildForm);   end;   ChildForm := TForm2.Create(application);   ChildForm.Parent:=form1.Panel1;   ChildForm.Show; end;   procedure TForm1.Button2Click(Sender: TObject); begin   if not Assigned(ChildForm) then   begin      ChildForm.Hide;      ChildForm.Parent := Nil;      FreeAndNil(ChildForm);   end;   ChildForm := TForm3.Create(application);   ChildForm.Parent:=form1.Panel1;   ChildForm.Show; end;

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

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;

[Loca]

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

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

Код:

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

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