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