Dwa Formularze...

0

Witam!

Mam dwa formularze tworzone dynamicznie...

Jak wykonać takie coś, aby pierwszy Formularz(I) po wykonaniu zadania (po utworzeniu drugiego Formularza(II)) został zamknięty i "wyrzucony z pamięci"...
i aby można go było (ten pierwszy Formularz(I)) stworzyć ponownie z poziomu drugiego Formularza (II)

Mam taki oto kod:

<delphi> program test;

uses //tutaj lista użytych modułów
Form1

begin
Application.Initialize;
Form1 := TForm1.Create(Application);
Form1.ShowModal;
Form1.Free;
Application.Run;
end;

unit Form1_00; // pierwszy formularz

uses
Form2; //...
//...

//...

procedure Form2.Button1Click(Sender: TObject);
begin
Form2 := TForm2.Create(Self);
// jakieś zadania do wykonania
Form2.ShowModal;
Close; //Zamknięcie pierwszego Formularz
end;

0
procedure Form2.Button1Click(Sender: TObject);
begin
  Form2 :=  TForm2.Create(Application);
  // jakieś zadania do wykonania
  Form2.ShowModal;
  Form1.Free; //zamknięcie i zwolnienie z pamięci
end;
0

Nie działa... pokazuje się błąd Access Violation, poza tym okno nie minimalizuje się na pasek zadań tylko do rogu ekranu...

1 użytkowników online, w tym zalogowanych: 0, gości: 1