[gelöst] Property von abgel. Klasse überschreiben

[dizzy]

Mirage228 hat's hinbekommen. Hier der Weg:

Delphi-Quellcode:

type
  TMyClass = class(TGraphicControl)
  private
    function GetWidth: Integer;
    procedure SetWidth(w: Integer);
  .
  .
  published
    property Width: Integer write SetWidth read GetWidth;

.
.

function TMyClass.GetWidth: Integer;
begin
  result := inherited Width;
end;

procedure TMyClass.SetWidth(w: Integer);
begin
  inherited Width := w;
end;

Man muss also Getter und Setter neu definieren wenn man eine geerbte Property überschreiben will.
Danke!

dizzy