AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

2. Form schliessen Variable=Nil

Ein Thema von ibp · begonnen am 22. Aug 2011 · letzter Beitrag vom 28. Aug 2011
Antwort Antwort
Seite 1 von 4  1 23     Letzte » 
Benutzerbild von ibp
ibp

Registriert seit: 31. Mär 2004
Ort: Frankfurt am Main
1.511 Beiträge
 
Delphi 7 Architect
 
#1

2. Form schliessen Variable=Nil

  Alt 22. Aug 2011, 18:07
Hallo,

ich glaube heute ist es zu warm.... oder ich sehe den Wald vor Bäumen nicht usw... daher brauche ich kurz Hilfe....

Szenario bisher: Form_1 erstellt zur Laufzeit eine Form_2 und zwar modal. Schön und gut. Saubere Sache.
Delphi-Quellcode:
unit1:
...
Form2:=Tform.Create(nil);
try
  Form2.ShowModal;
finally
  FreeAndNil(Form2);
end;
...

Szenario jetzt: Die Form2 soll nicht mehr modal sein, kann aber jederzeit selber geschlossen oder erstellt werden oder Inhalte ändern sich oder wird bei Programmende einfach mit geschlossen. Form2 darf, wenn nur einmal existieren.

Mein Problem gerade. Wenn die Form2 geschlossen wird dann bekommt unit1 das nicht mit und die Variable Form2 ist noch assigned, auch wenn in Form2 unter FormClose Action:=caFree; eingestellt ist.

Delphi-Quellcode:
unit1:
uses uForm2,...

Form2:TForm2;
...
procedure TForm1.btnCreateForm2Click(Sender: TObject);
begin
  if Assigned(Form2) then <--- hier knallts beim 2. Aufruf wenn Form2 geschlossen wurde, da Form2<>Nil ist!
  begin
    ShowMessage('schon da!');
    Form2.BringToFront;
  end
  else
  begin
    Form2:=TForm2.Create(nil);
    Form2.Show;
  end;
end;

...

procedure TForm1.DingeDieDieWeltNichtBraucht;
begin
  ...
  Form2.ZeigeWasAnderes;
  ...
end;
Wie setze ich Form2=nil wenn der Anwender das Form_2 schliesst?

Ich möchte aber nicht FindComponent nutzen...

Danke schon mal....
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
8.503 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: 2. Form schliessen Variable=Nil

  Alt 22. Aug 2011, 18:08
Setze Form2 einfach in OnDestroy von TForm2 auf nil.
Sebastian Jänicke
Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
  Mit Zitat antworten Zitat
Benutzerbild von ibp
ibp

Registriert seit: 31. Mär 2004
Ort: Frankfurt am Main
1.511 Beiträge
 
Delphi 7 Architect
 
#3

AW: 2. Form schliessen Variable=Nil

  Alt 22. Aug 2011, 18:52
Setze Form2 einfach in OnDestroy von TForm2 auf nil.
haut nicht hin.. Bekomme ich beim Aufruf eine AV. Assigned(Form2)<>Nil!
  Mit Zitat antworten Zitat
WM_CLOSE

Registriert seit: 12. Mai 2010
Ort: königsbronn
398 Beiträge
 
RAD-Studio 2009 Pro
 
#4

AW: 2. Form schliessen Variable=Nil

  Alt 22. Aug 2011, 19:38
setze in OnCreate/OnDestroy eine Klassenvariable auf true/false. Die kannst du dann abfragen.
Delphi programming
  Mit Zitat antworten Zitat
Benutzerbild von Chemiker
Chemiker

Registriert seit: 14. Aug 2005
1.855 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#5

AW: 2. Form schliessen Variable=Nil

  Alt 22. Aug 2011, 20:45
Hallo,

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

Bis bald Chemiker
wer gesund ist hat 1000 wünsche wer krank ist nur einen.
  Mit Zitat antworten Zitat
Benutzerbild von ibp
ibp

Registriert seit: 31. Mär 2004
Ort: Frankfurt am Main
1.511 Beiträge
 
Delphi 7 Architect
 
#6

AW: 2. Form schliessen Variable=Nil

  Alt 22. Aug 2011, 20:51
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;

Geändert von ibp (22. Aug 2011 um 20:58 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
8.503 Beiträge
 
Delphi 10.4 Sydney
 
#7

AW: 2. Form schliessen Variable=Nil

  Alt 22. Aug 2011, 20:56
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.
Angehängte Dateien
Dateityp: zip Form2 = nil Demo.zip (527,4 KB, 12x aufgerufen)
Sebastian Jänicke
Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie
(Moderator)

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#8

AW: 2. Form schliessen Variable=Nil

  Alt 22. Aug 2011, 21:01
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?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von ibp
ibp

Registriert seit: 31. Mär 2004
Ort: Frankfurt am Main
1.511 Beiträge
 
Delphi 7 Architect
 
#9

AW: 2. Form schliessen Variable=Nil

  Alt 22. Aug 2011, 21:04
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!
  Mit Zitat antworten Zitat
Benutzerbild von Chemiker
Chemiker

Registriert seit: 14. Aug 2005
1.855 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#10

AW: 2. Form schliessen Variable=Nil

  Alt 22. Aug 2011, 21:13
Hallo ipg,


reicht es nicht das Form2 statt mit From2.free einfach mit FreeAndNil(Form2) freizugeben?

Bis bald Chemiker
wer gesund ist hat 1000 wünsche wer krank ist nur einen.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:29 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf