ReadOnly-Eigenschaft überschreiben

[Stefan Bachmann]

Hallo

ich möchte in einem abgeleiteten TMemo die ReadOnly-Eigenschaft überschreiben bzw. erweitern (zB. die Textfarbe ändern). Leider habe ich bis jetzt nicht herausgefunden, wie. Hat jemand eine Lösung?

Gruss und Dank
Stefan

[Ulrich Gerhardt]

In etwa so:<pre>
property BorderWidth write SetBorderWidth default cDefaultBorderWidth;
</pre>
- also ohne Angabe des Typs. Dadurch weiß der Compiler, dass du die geerbte Property abändern willst und nicht eine neue mit gleichem Namen erstellst.
<p>Die Implementation läuft dann so:<pre>
procedure TAbgeleitet.SetBorderWidth(Value: TBorderWidth);
begin
// eigener Kram
inherited BorderWidth := Value;
// mehr eigener Kram
end;
</pre>
HTH, Uli

[Stefan Bachmann]

Vielen Dank, hat funktioniert (und wieder was gelernt).

Gruss Stefa