Einzelnen Beitrag anzeigen

Rolf Frei

Registriert seit: 19. Jun 2006
650 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: Text-Property von abgeleiteter Komponente überschreiben

  Alt 26. Nov 2019, 14:25
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;
  Mit Zitat antworten Zitat