将文本输入编辑框; Delphi的

Question

我试图通过用户点击Delphi表单上的按钮将字符输入编辑框。例如，Button1会在编辑框的内容中添加字符'1'; Button2添加了字符'2'等

以下是每个按钮的事件处理程序中的相关代码 - 以Button1添加1为例：

Edit1.text := Edit1.Text + '1';

问题是点击某些按钮可确保编辑框中出现一个数字，而点击其他按钮则不会，即没有数字出现。

任何人都可以解释我做错了什么，并解释问题是什么？我对这一切都很陌生。

Answer 1

将此事件处理程序添加到表单中：

procedure TForm1.NumberButtonClick(Sender: TObject);
begin
  Edit1.Text := Edit1.Text + (Sender as TButton).Caption;
end;

使用Object Inspector的Events选项卡，将面板上所有按钮的OnClick处理程序设置为上述事件处理程序。

这在Delphi 10.1 Berlin和Delphi 2007中完美运行。如果它不适合您，那么您还有其他事情发生，需要发布足够的代码供我们用来重现问题。