Klassen constructor Aufrufen

[himitsu]

Komponenten im FormDesigner bekommen als Owner immer die Form und als Parent das, worauf sie liegen.

Aber du kannst im Constructor ja dennoch Parent = Owner setzen, für denn Fall, dass die Komponente manuell erstellt wird.
(lässt sich ja nach dem Constructor neu zuweisen, wenn es doch ein anderer Parent werden soll)

Man kann über Self.ComponentState (im Constructor siehe Owner.ComponentState) rausbekommen, ob die Komponente grade im FormDesigner liegt, oder ob soe grade aus einer DFM geladen wird.
Nur der TForm-Constructor ist ein Sonderfall, wenn dieser über Application.CreateForm erstellt wird, denn da ist der Zustannd bereits im Constructor bekannt. Leider waren Her Wirth und Borland nicht nett genug, das auch im TReader (DFM-Loader) zu machen.

[Mavarik]

Zitat:

Zitat von bernhard_LA (Beitrag 1366319)

Welcher Constructor wird ausgeführt wenn ich meine Komponente auf ein Form ziehe ?

Nochmal zurück zu dieser Frage... Man möge mich korrigieren, wenn ich falsch liege...

Wenn ich eine Object erzeuge das ich von einem anderen Object ableite schreibe ich i.d.R. nicht override...

Beispiel:

Delphi-Quellcode:

type
  TMyButton = class(TButton)
    public
      Constructor Create(AOwner : TComponent);
  end;

Denn mit einem TMyButton.Create wird mein constructor aufgerufen hier mache ich den inherited

Warum also ein override?

Weil nicht mein Constructor aufgerufen wird?

Anders bei Methoden. Siehe docwiki!

[Uwe Raabe]

Zitat:

Zitat von Mavarik (Beitrag 1366384)

Warum also ein override?

Das kommt darauf an, was du erreichen willst. Solange du immer nur TMyButton.Create aufrufst, funktioniert das. Sobald aber das Streaming-System oder der IDE-Formular-Designer ins Spiel kommen, ist dein Constructor außen vor und wird nicht aufgerufen. Wie gesagt, das kann so gewünscht sein - ist es in der Regel aber nicht.

Der Sinn von virtuellen Konstruktoren ist ja genau der, daß sie auch aufgerufen werden können, wenn dem Aufrufenden die tatsächliche Klasse nicht bekannt ist.

[Fritzew]

Zitat:

Zitat von Mavarik (Beitrag 1366384)

Zitat:

Zitat von bernhard_LA (Beitrag 1366319)

Welcher Constructor wird ausgeführt wenn ich meine Komponente auf ein Form ziehe ?

Nochmal zurück zu dieser Frage... Man möge mich korrigieren, wenn ich falsch liege...

Wenn ich eine Object erzeuge das ich von einem anderen Object ableite schreibe ich i.d.R. nicht override...

Beispiel:

Delphi-Quellcode:

type
  TMyButton = class(TButton)
    public
      Constructor Create(AOwner : TComponent);
  end;

Das kommt aber ne Warnung wenn Die neue Klasse von TComponent abgeleitet ist. Aus diesem Grund werden bei uns eigentlich fast alle Warnungen als Fehler behandelt, dann geht so etwas auf keinen Fall unter

[Mavarik]

Zitat:

Zitat von Uwe Raabe (Beitrag 1366394)

Sobald aber das Streaming-System oder der IDE-Formular-Designer ins Spiel kommen, ist dein Constructor außen vor und wird nicht aufgerufen.

Ja genau - das wollte ich eigentlich damit sagen... :stupid:

Zitat:

Zitat von Uwe Raabe (Beitrag 1366394)

Der Sinn von virtuellen Konstruktoren ist ja genau der, daß sie auch aufgerufen werden können, wenn dem Aufrufenden die tatsächliche Klasse nicht bekannt ist.

Perfekt... Warum hatte ich das nicht geschrieben? OK ich hole mir erst nen Kaffee...

:thumb:

Immer wenn das Telefon klingelt, sollte ich meine Post vor dem senden erst nochmal lesen...

[HolgerX]

Zitat:

Zitat von bernhard_LA (Beitrag 1366360)

Delphi-Quellcode:

constructor TPImage.create(aOwner: TComponent);
begin
  inherited create(aOwner);

  createPParams(nil);
end;

constructor TPImage.create(aOwner: TComponent ; xpixel, ypixel: Integer);
begin
  // object Defaults
  inherited create(aOwner);

  Self.Height := ypixel;
  Self.Width := xpixel;

  // user code
  createPParams(nil);

end;

Da du in deinem erweiterten constructor den originalen per inherited aufrufst, kannst Du dir in deinem erweiterten das

Delphi-Quellcode:

  // user code
  createPParams(nil);

sparen!


Also:

Delphi-Quellcode:

constructor TPImage.create(aOwner: TComponent);
begin
  inherited create(aOwner);

  createPParams(nil);
end;

constructor TPImage.create(aOwner: TComponent ; xpixel, ypixel: Integer);
begin
  // object Defaults
  inherited create(aOwner);

  Self.Height := ypixel;
  Self.Width := xpixel;
end;

[Neutral General]

Zitat:

Zitat von bernhard_LA (Beitrag 1366360)

Ich dachte die Info bekommt die Class schom beim Ausführen des KOnstruktors

Owner und Parent sind zwei unterschiedliche Dinge.
Der Owner verwaltet die Instanz des Controls und gibt sie frei wenn er selbst freigegeben wird.
Das Parent ist das Control auf dem das erstellte Control platziert werden soll.

[Uwe Raabe]

Zitat:

Zitat von HolgerX (Beitrag 1366418)

Da du in deinem erweiterten constructor den originalen per inherited aufrufst, kannst Du dir in deinem erweiterten das

Delphi-Quellcode:

  // user code
  createPParams(nil);

sparen!

Da wäre ich jetzt nicht so sicher! Du rufst ja explizit das inherited Create auf und nicht das der aktuellen Klasse.

[HolgerX]

Hmm..


Wäre es dann nicht besser, das inherited weg zu lassen?
Dann würden beide Aufrufe zur selben 'Basis' passen, ohne immer alles aus dem Einen im Anderen wieder nachziehen zu müssen.

[himitsu]

[edit] Jupp, weg damit.

Zitat:

Zitat von HolgerX (Beitrag 1366418)

Da du in deinem erweiterten constructor den originalen per inherited aufrufst, kannst Du dir in deinem erweiterten das

Delphi-Quellcode:

  // user code
  createPParams(nil);

sparen!

Dann sollte man da aber das Inherited weglassen, denn damit wird der Vorfahr aufgerufen, wo das nicht drin ist,

also:

Delphi-Quellcode:

constructor TPImage.Create(aOwner: TComponent);
begin
  inherited;  //inherited Create(aOwner);   // wenn es gleich ist (Name und Parameter, dann muß man es nicht angeben) ... finde ich übersichtlicher, da man so weiß, dass nur der direkte Vorfahre gemeint ist
  createPParams(nil);
end;

constructor TPImage.Create(aOwner: TComponent; xpixel, ypixel: Integer);
begin
  // object Defaults
  Create(aOwner);  // inherited Create(aOwner);  // hier ohne Inherited, wenn man den "Eigenen" meint

  Self.Height := ypixel;
  Self.Width := xpixel;
end;