TImage Ableitung: Picture property

[Andreas L.]

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