delphi - 如何替换从 TCustomEdit 中删除的 protected 虚拟 DoTyping 方法？

Question

我有一个自定义的 FMX 组合框控件，我正在尝试从 Delphi XE6 迁移到 Delphi 10.1 Berlin。该控件继承自TComboEdit。在我的控制下，我重写了 protected 虚拟方法 - “DoTyping”，该方法曾经存在于 TCustomEdit 中，但在 Delphi 10.1 Berlin 中不再存在。如何保留我的代码而不需要重写整个控件？我正在监督的 Delphi 10.1 Berlin 中是否有同义的东西？

看起来 TCustomEdit 添加了一个新属性

 Model: TCustomEditModel

Answer 1

这再简单不过了。

库存 TComboEdit 有一个 OnTyping 事件。
无论 DoTyping 方法移至何处，其实现肯定如下所示:

procedure TSomething.DoTyping;
begin
  if assigned(FOnTyping) then FOnTyping(Self);
end;

因此，只需拿起 DoTyping 中的代码，将其剪切即可。
将您的自定义 ComboEdit(或库存 TComboEdit)放在表单上，​​转到对象检查器中的事件，双击 OnTyping 并将代码粘贴到事件处理程序中。

procedure TForm50.ComboEdit1Typing(Sender: TObject);
begin
  //Paste here.
end;

这就是 Uwe 所说的“连接事件”。