Переопределить чтение и запись свойства базового класса

Question

Я хочу создать новый компонент, который ведет себя точно так же, как TEdit, но заменяет некоторые символы текста, введенного в него. Например, когда кто-то вводит «abc» в новый компонент, я хочу, чтобы Text-Property возвращал «aac», когда он читается в исходном коде.

type 
    TMyEdit = class(TEdit) 
    public 
    property Text : TCaption read GetText; 
    end; 

Нечто подобное.

Можно ли переопределить существующее свойство с помощью новой функции чтения для этого свойства и не изменять функцию записи для этого свойства?

С уважением

Answer 1

Как было сказано ранее:

Лучший подход заключается в использовании TMaskEdit

Но если вы действительно хотите, чтобы реализовать поведение, то это может быть сделано как это:

type 
    TMyEdit = class(TEdit) 
    private 
    function GetText: TCaption; 
    procedure SetText(const Value: TCaption); 
    public 
    property Text: TCaption read GetText write SetText; 
    end; 

{ TMyEdit } 

function TMyEdit.GetText: TCaption; 
begin 
    Result := 'TMyEdit' + inherited Text; 
end; 

procedure TMyEdit.SetText(const Value: TCaption); 
begin 
    inherited Text := Value; 
end; 

Итак, я создаю и GetText, и SetText settext просто вызывает унаследованное свойство Text, в то время как GetText меняет результат

Answer 2

TMyEdit = class(TEdit) 
protected 
    procedure Change; override; 
end; 

procedure TMyEdit.Change; 
begin 
    Self.Text := StringReplace(Self.Text, 'aaa', 'ccc'); 
    inherited; 
end;