inherited CreateBlank
ruft Create
auf. Wenn ich Create
überschreibe, gibt's also 'ne endlose Rekursion und damit einen Stack Overflow.
Ja richtig, da habe ich nicht mitgedacht bzw. nicht ausprobiert.
Du musst letztendlich gar nichts hinschreiben und es sollte dann so gehen wie gewünscht:
Delphi-Quellcode:
type
TMyPngImage = class(TPngImage)
public
constructor Create;
end;
...
{ TMyPngImage }
constructor TMyPngImage.Create;
begin
inherited CreateBlank(COLOR_RGBALPHA, 8, 1, 1);
end;