AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delphi neues Formular zur Laufzeit erstellen, Owner Application, Freigabe Formular
Thema durchsuchen
Ansicht
Themen-Optionen

neues Formular zur Laufzeit erstellen, Owner Application, Freigabe Formular

Ein Thema von Alex_ITA01 · begonnen am 5. Jun 2014 · letzter Beitrag vom 5. Jun 2014
Antwort Antwort
Alex_ITA01

Registriert seit: 22. Sep 2003
1.115 Beiträge
 
Delphi 12 Athens
 
#1

neues Formular zur Laufzeit erstellen, Owner Application, Freigabe Formular

  Alt 5. Jun 2014, 13:43
Hallo zusammen,
ich habe folgendes Gerüst:

Delphi-Quellcode:
  if not Assigned(MyOwnForm) then
    MyOwnForm:= TfrmMyOwnForm.Create(Application);
  if Assigned(MyOwnForm) then
  begin
    MyOwnForm.Init;
    //tue irgendwas mit meiner Form
    FreeAndNil(MyOwnForm);
  end;
Jetzt zu meiner Frage.
Ich übergebe ja als Owner die "Application". Das heißt ja, die Anwendung kümmert sich beim Beenden um die Freigabe des Formulars, richtig?
Habe ich irgendein Nachteil oder anderes Problem (z.B. Speicherleck) wenn ich dieses Formular wie geschrieben, mit "FreeAndNil" selber freigebe? Hat die Anwendung dann beim Beenden irgendein Problem mit vielleicht irgendwelchen Referenzzählern oder ähnlichen?

Viele Grüße
Let's fetz sprach der Frosch und sprang in den Mixer
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.142 Beiträge
 
Delphi 12 Athens
 
#2

AW: neues Formular zur Laufzeit erstellen, Owner Application, Freigabe Formular

  Alt 5. Jun 2014, 13:47
TComponent ist recht intelligent.

Die registrieren sich gegenseitig und räumen die Owner- und die Parent-Beziehungen auf, wenn man eine der beiden Komponenten frei gibt.
Du gibst die OnwForm frei und dabei wird deren Referenz aus Application entfernt.


Aber wozu der Owner, wenn du es sowieso gleich wieder frei gibst?
Also, im Prinzip kann man dabei den Owner auch problemlos leer lassen. (Außer der Owner wird noch für irgendwas Anderes verwendet)
Delphi-Quellcode:
if not Assigned(MyOwnForm) then
  MyOwnForm := TfrmMyOwnForm.Create(nil);
try
  MyOwnForm.Init;
  //tue irgendwas mit meiner Form
finally
  FreeAndNil(MyOwnForm);
end;
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu ( 5. Jun 2014 um 13:50 Uhr)
  Mit Zitat antworten Zitat
Alex_ITA01

Registriert seit: 22. Sep 2003
1.115 Beiträge
 
Delphi 12 Athens
 
#3

AW: neues Formular zur Laufzeit erstellen, Owner Application, Freigabe Formular

  Alt 5. Jun 2014, 14:04
Ok, danke für die Antwort.
Stimmt, ich könnte den Owner auch weglassen. Dachte irgendwie, ich benötige den, damit das Form auch angezeigt werden kann.
Try...Finally ist natürlich auch nochmal wichtig. Das hatte ich auch übersehen.

Danke
Let's fetz sprach der Frosch und sprang in den Mixer
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.142 Beiträge
 
Delphi 12 Athens
 
#4

AW: neues Formular zur Laufzeit erstellen, Owner Application, Freigabe Formular

  Alt 5. Jun 2014, 14:57
Nja, mit Owner und ohne das Try-Finally, würde sich der Owner später mal um die Freigabe kümmern, wenn es jetzt beim MyOwnForm.Init knallen täte und dadurch das Free nicht mehr ausgeführt würde.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Antwort Antwort


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 00:08 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz