2. Form schliessen Variable=Nil

[jaenicke]

Setze Form2 einfach in OnDestroy von TForm2 auf nil.

[ibp]

Zitat von jaenicke:

Setze Form2 einfach in OnDestroy von TForm2 auf nil.

haut nicht hin.. Bekomme ich beim Aufruf eine AV. Assigned(Form2)<>Nil!

[WM_CLOSE]

setze in OnCreate/OnDestroy eine Klassenvariable auf true/false. Die kannst du dann abfragen.

[Chemiker]

Hallo,

das Form2 ist in den Optionen auf verfügbar eingestellt?

Bis bald Chemiker

[ibp]

Zitat von Chemiker:

das Form2 ist in den Optionen auf verfügbar eingestellt?

Ja ... ich kann leider nicht nur mit "Ja" antworten, da es anscheinend eine zu kurze Antwort ist!

Habe das jetzt so gelöst...

Delphi-Quellcode:

unit1;
..
type
  TForm1 = class(TForm)
    btnCreate: TButton;
    btnTest: TButton;
    procedure FormDestroy(Sender: TObject);
    procedure btnCreateClick(Sender: TObject);
    procedure btntestClick(Sender: TObject);
  private
    { Private-Deklarationen }
    Form2:TForm2;
  public
    { Public-Deklarationen }
  end;

..

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Form2.free;
end;

procedure TForm1.btnCreateClick(Sender: TObject);
begin
  if Assigned(Form2) then
  begin
    Form2.BringToFront;
  end
  else
  begin
    Form2       := TForm2.Create(nil);
    Form2.PFree := @Form2;
    Form2.Show;
  end;
end;

////////////////////////////////////////////////////////

unit2;
..
type
  TForm2 = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    PFree: ^TForm;  // Adresse von
  end;

..

procedure TForm2.FormCreate(Sender: TObject);
begin
  PFree:=nil;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
  if Assigned(PFree) then
  begin
    PFree^:=nil;
  end;
end;

[Lemmy]

Hi,

Zitat von ibp;1118694
[DELPHI:

unit1;
..
type
TForm1 = class(TForm)
btnCreate: TButton;
btnTest: TButton;
procedure FormDestroy(Sender: TObject);
procedure btnCreateClick(Sender: TObject);
procedure btntestClick(Sender: TObject);
private
{ Private-Deklarationen }
Form2:TForm2;
public
{ Public-Deklarationen }
end;

..
[/DELPHI]

das dürfte das Problem sein - vermutlich hast Du in Unit2 auch Form2:TForm2 irgend wo stehen und dann hast Du an der Stelle in Unit 1 an der du auf NIL testest 2 Variablen mit dem selben Namen. Das kann dann nur schief gehen..

Grüße

[Sir Rufo]

So wie du das machst wird die Form TForm2 immer doppelt im Speicher vorhanden sein.

Einmal automatisch beim Programmstart und dann immer wieder beim Aufruf.
Irgendwie nicht logisch.

Also das Formular nicht automatisch erzeugen lassen.

Um TForm2 Modal aufzurufen folgender Code:

Delphi-Quellcode:

Procedure TForm1.OpenForm2Modal( Sender : TObject );
Var
  ModForm2 : TForm2;
begin
  ModForm2 := TForm2.Create( Self );
  Try
    ModForm2.ShowModal;
  Finally 
    ModForm2.Free;
  end;
end;

Um die globale Variable "Form2" aus der Unit2 beim Free auf Nil zu setzen folgender Code

Delphi-Quellcode:

procedure TForm2.FormDestroy( Sender : TObject );
begin
  If Form2 = Self then
    Form2 := nil;
end;

[jaenicke]

Zitat von ibp:

Zitat von jaenicke:

Setze Form2 einfach in OnDestroy von TForm2 auf nil.

haut nicht hin.. Bekomme ich beim Aufruf eine AV. Assigned(Form2)<>Nil!

Keine Ahnung wie du das machst, bei mir geht das problemlos. Siehe Anhang.

Aber eine andere Frage: Wozu zerstörst du das Formular eigentlich immer wieder? Es reicht doch, es bei der ersten Verwendung zu erstellen und danach einfach sichtbar oder unsichtbar zu machen.

[Luckie]

Na ja, wenn ich es schon dynamisch erstelle, dann auch richtig. Ansonsten kann ich in den Projektoptionen ja auch einstellen, dass es gleich erzeugt werden soll. Aber warum den Speicher unnütz belasten, wenn es nicht gebraucht wird?

[ibp]

Zitat von jaenicke:

Zitat von ibp:

Zitat von jaenicke:

Setze Form2 einfach in OnDestroy von TForm2 auf nil.

haut nicht hin.. Bekomme ich beim Aufruf eine AV. Assigned(Form2)<>Nil!

Keine Ahnung wie du das machst, bei mir geht das problemlos. Siehe Anhang.

Ja, der Unterschied liegt wohl bei den Optionen und den verfügbaren Formularen (Danke @Chemiker!)

Bei mir stehen die Formulare in den Optionen auf verfügbar!

Zitat von jaenicke:

Aber eine andere Frage: Wozu zerstörst du das Formular eigentlich immer wieder? Es reicht doch, es bei der ersten Verwendung zu erstellen und danach einfach sichtbar oder unsichtbar zu machen.

Weil sie nicht immer gebraucht werden! Es kann sein, dass jemand das Fenster 10 mal beim arbeiten benutzt oder aber auch überhaupt nicht!