重写基类属性的读写

Question

我想创建一个新的组件，它的行为与 TEdit 完全一样，但将一些字符替换为其中输入的文本。 例如，当有人在新组件中键入“abc”时，我希望文本属性在源代码中读取时返回“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;