Moin!
Klasse Kompo, um Delphi abzuschießen
, bzw erstklassige Endlosschleife
Wenn Du eine Eigenschaft überschreibst, dann kannst Du beim lesen der Werte net die Eigenschaft der abgeleiteten Instanz verwenden, da diese wieder die Funktion GetWidth, wie in dem Beispiel aufrufen und damit eine Endlosschleife machen.
Delphi-Quellcode:
function TGraph.GetWidth: Integer;
begin
Result:=Width; // <- Aufruf von GetWidth = Endlosschleife
end;
function TGraph.GetWidth: Integer;
begin
Result:=inherited Width; // <- Aufruf von dem ererbten GetWidth
end;
Grüßle!
PS: Notdürftig reparierte
Unit angehängt, jetzt läufts.