Klassen constructor Aufrufen

[bernhard_LA]

ich habe eine Komponente die sich von TImage ableitet.
Wenn ich die Komponente zur Laufzeit in meiner Anwendung erzeuge kann ich einen von beiden class constructoren direkt aufrufen. Es spielt alles wie es soll.

Wenn ich die Komponente nun installiere und auf mein Formular ziehe, dann wird der Konstruktor nicht aufgerufen, ich bekomme einen Fehler bei nicht initialisieren lokalen Variablen meiner Klasse.

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

Delphi-Quellcode:

TPImage = class(TImage)
  private
    { Private-Deklarationen }
    

  protected
    { Protected-Deklarationen }

    BasicInit: Boolean;

  public
    { Public-Deklarationen }

    constructor create(xpixel, ypixel: Integer); overload;

    constructor create(aOwner: TWinControl); overload;

    destructor destroy; override;

...

end;

[Uwe Raabe]

Zitat von bernhard_LA:

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

Der in TComponent definiert ist. Den musst du überschreiben, wenn das was werden soll.

[himitsu]

Rate mal, warum TComponent einen virtuellen Contructor hat.

[bernhard_LA]

mit dem Schlüsselwort override komme ich leider auch nicht weiter

Delphi-Quellcode:

    //  diesen Ausführen wenn ich K. zur Laufzeit erzeuge 
    constructor create(xpixel, ypixel: Integer); overload;
    //  diesen Ausführen wenn ich K. auf mein Form gezogen habe 
    constructor create(aOwner: TWinControl); override;  overload;

Fehlermeldung :

[dcc32 Error] Unit_TPl.pas(97): E2037 Declaration of 'Create' differs from previous declaration

[Lemmy]

das sollte eher so aussehen:

Delphi-Quellcode:

  
    constructor create(aOwner: TWinControl; xpixel, ypixel: Integer); override; reintroduce;

und dann ein inherited create(aowner)....

[Neutral General]

Überschriebene Methoden müssen die gleiche Signatur haben wie die virtuelle in der Basisklasse. D.h.:
constructor Create(AOwner: TComponent); override;

Zitat von Lemmy:

das sollte eher so aussehen:

Delphi-Quellcode:

  
    constructor create(aOwner: TWinControl; xpixel, ypixel: Integer); override; reintroduce;

und dann ein inherited create(aowner)....

Der Konstruktor wird aber auch nicht aufgerufen wenn du das Image aufs Formular ziehst.

[Uwe Raabe]

Dein Interface müsste dann in etwa so aussehen:

Delphi-Quellcode:

    constructor Create(AOwner: TComponent); overload; override;
    constructor Create(xpixel, ypixel: Integer); reintroduce; overload;
    constructor Create(aOwner: TWinControl); reintroduce; overload; // wobei das hier eventuell Probleme bereitet, das TWinControl ja ebenfalls ein TComponent ist.

Die eigentliche Arbeit steckt aber in den Implementierungen, zu denen wir aber so nicht viel sagen können.

[DeddyH]

Zitat:

constructor Create(aOwner: TWinControl); reintroduce; overload; // wobei das hier eventuell Probleme bereitet, das TWinControl ja ebenfalls ein TComponent ist.

Wenn man es gar nicht anders hinbekommt:
constructor Create(aOwner: TWinControl; NotNeededDummy: integer = 0); reintroduce; overload; Aber sowas würde ich nur im alleräußersten Notfall und mit Bauchgrimmen implementieren.

[bernhard_LA]

die Konstruktoren habe ich wie folgt abgeändert :

Delphi-Quellcode:

  
TPImage = class(TImage)
  private

  public
    { Public-Deklarationen }


    constructor create(aOwner: TComponent); overload; override;

    constructor create(aOwner: TComponent;  xpixel, ypixel: Integer);   reintroduce; overload;

    .... 

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;

Wenn ich die installierte Komponente jetzt auf das Formular ziehe sieht es gut aus ( muss noch mehr testen)
allerdings funktioniert das Erzeugen zur Laufzeit jetzt nicht mehr

also

Delphi-Quellcode:

 //   Größe des Bilder möchte ich via align einstellen 
 FPI := TPImage.create(Panel1);
 //  ich gebe die Größe des Bildes vor ...
 FPI := TPImage.create(Panel1,300,300);

dann wird auf meinem Panel nichts mehr anzeigt , ich muss dann nochmals

FPI.Parent := Panel1;

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

[Mavarik]

Zitat von bernhard_LA:

dann wird auf meinem Panel nichts mehr anzeigt , ich muss dann nochmals

FPI.Parent := Panel1;

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

Nein... Das musst Du immer machen...

Es könnte ja

Delphi-Quellcode:

AInstance := TFoo.Create(Form1,10,10);
AInstance.Parent := Panel1;

sein...