Zitat von
kurtm1:
Werde daraus noch immer nicht schlau...
Timage.Picture ist folgendermaßen deklariert:
published property Picture: TPicture read FPicture write SetPicture;
Muss ich "FPicture" auch anlegen, wenn ich eigentlich nur die "write" Methode ändern möchte?
Nein brauchst du nicht:
Delphi-Quellcode:
type
TMyImage = class(TImage)
protected
function GetPicture:TPicture;
procedure SetPicture(Value: TPicture);
published
property Picture: TPicture read GetPicture write SetPicture;
end;
...
...
function TMyImage.GetPicture:TPicture;
begin
Result := inherited Picture; //u. U. mit .Assign()
end;
procedure TMyImage.SetPicture(Value: TPicture);
begin
//mach irgendwas besonderes
inherited Picture := Value;
end;
Edit: Über inherited kannst du auf Eigenschaften und Methoden der Vorfahrenklasse zugreifen