delphi - 虚拟键盘 - 将按钮点击发送到备忘录的最佳方式？

Question

我还在使用 D2007，需要创建一个支持 unicode 的虚拟键盘。所以我使用 TMS 的 unicode 按钮来模拟按键，但我想避免的是必须分配

mmo.Lines.Text := mmo.Lines.Text + Button1.Caption;

~50 次。必须有一种更好的方法来一次将一个字符发送到备忘录。有没有办法在 Object Inspector 中使用 Tag 属性并从那里赋值，或者如何赋值？

你会怎么做？

Answer 1

为所有按钮分配相同的 OnClick 事件处理程序。不要像上面使用 Button1 那样按名称引用每个按钮，而是使用 Sender 参数。这就是它的用途。它会告诉您哪个控件的事件被触发以导致处理程序运行。

Sender 具有静态类型 TObject。单击其中一个按钮时，Sender 将具有运行时类型 TButton，或您正在使用的任何实际类。要使您的代码能够编译，您需要进行类型转换。例如:

procedure TKeyboardForm.ButtonClick(Sender: TObject);
begin
  mmo.Lines.Text := mmo.Lines.Text + (Sender as TButton).Caption;
end;