Text-Property von abgeleiteter Komponente überschreiben

[Rolf Frei]

Soweit ich das sehe kannst du das nicht überschreiben, da weder SetText noch GetText virtual sind.

Du könntest aber versuchen deine eigenen SetText und GetText in deiner Ableitung zu erstellen. Damit "versteckst" du die in der Basisklasse, aber Code wie TCustomMaksEdit(MeinEdit).Text würde nicht deine Version aufrufen sondern die der Basisklasse. MeinEdit.Text hingegen würde deine Version aufrufen.

Delphi-Quellcode:

TMeinEdit = class(TCustomMaskEdit)
private
  function GetText: TMaskedText;
  procedure SetText(const Value: TMaskedText);
public
  property Text: TMaskedText read GetText write SetText;
end;