Delphi-PRAXiS
Seite 3 von 3     123   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Registry Werte beim starten auslesen klappt nicht (https://www.delphipraxis.net/15165-registry-werte-beim-starten-auslesen-klappt-nicht.html)

Phoenix 25. Jan 2004 19:56

Re: Registry Werte beim starten auslesen klappt nicht
 
Zitat:

Zitat von teebee
Muss Dir leider widersprechen, in dem Moment, da das OnCreate-Ereignis eines Formulars ausgelöst wird, sind sämtliche Komponenten darauf bereits erzeugt. Sonst hätte es in dem Fall hier auch Schutzverletzungen gehagelt statt eines merkwürdigen Programmverhaltens.

D.h. schon in FormCreate kann man auf alle Koponenten zugreifen, die man selbst aufs Form gepackt hat.

Wie ich bereits geschrieben habe: Wenn erst ein inherited geschieht, dann ja - andernfalls werden die Controls implizit nach OnCreate erzeugt.

Wenn Du's nicht glauben magst hole Dir eine Professional - Version von Delphi und lies im Quelltext der VCL nach :)

teebee 25. Jan 2004 20:45

Re: Registry Werte beim starten auslesen klappt nicht
 
Zitat:

Zitat von Phoenix
Wie ich bereits geschrieben habe: Wenn erst ein inherited geschieht, dann ja - andernfalls werden die Controls implizit nach OnCreate erzeugt.

Wenn Du's nicht glauben magst hole Dir eine Professional - Version von Delphi und lies im Quelltext der VCL nach :)

Ich habe eine Pro-Version und ein Blick in den Quelltext zeigt genau, was beim Erzeugen eines Forms passiert:
Delphi-Quellcode:
constructor TCustomForm.Create(AOwner: TComponent);
begin
  CreateNew(AOwner); // zuerst wird das Form selbst erzeugt
  if (ClassType <> TForm) and not (csDesigning in ComponentState) then
  begin
    Include(FFormState, fsCreating);
    try
      if not InitInheritedComponent(Self, TForm) then // dann der Resourcendatei entsprechend alle Komponenten
        raise EResNotFound.CreateFmt(SResNotFound, [ClassName]);
    finally
      Exclude(FFormState, fsCreating);
    end;
    try
      if Assigned(FOnCreate) then FOnCreate(Self); // und _dann erst_ das Ereignis ausgelöst
    except
      Application.HandleException(Self);
    end;
    if fsVisible in FFormState then Visible := True; // erzeugt wird jetzt nix mehr
  end;
end;
Im übrigen: das inherited in einem Ereignis-Handler wie OnCreate ist Unsinn. Bitte nicht mit einem inherited in einem Konstruktor, d.h in der Create-Methode selbst, verwechseln, in die kommst Du ja nicht rein, es sei denn Du leitest eine neue Klasse ab und überschreibst Create. Außerdem würde mir nicht einleuchten, wie man mit einem inherited, was ja eine Methode einer Super(sprich: Vererber)-Klasse aufruft und nicht eine Methode eines Child-Fensters, die untergeordneten Steuerelemente erzeugen lassen will.

Zusammengefasst heisst das:
- wenn das OnCreate-Ereignis gefeuert wird, sind alle Komponenten, die in der Ressourcendatei des Forms gespeichert sind, bereits erzeugt. Das heisst zwar nicht, dass man auf alle Eigenschaften Zugriff hat, die Items einer ComboBox z.B. sind erst erreichbar, wenn die ComboBox auf dem Bildschirm ist (nichts desto trotz ist sie bei OnCreate bereits da!), TEdit.Text, und darum ging es hier ja, funktioniert allerdings, bitte mal ausprobieren!
- der OnCreate-Ereignishandler eines Forms hat nichts mit seinem Konstruktor Create (außer, dass es von dort aufgerufen wird), inherited gehört hier nicht rein!

Alle Klarheiten beseitigt? :wink:

Gruß, teebee


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:06 Uhr.
Seite 3 von 3     123   

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