Question

求delphi 键盘事件

我是初学DELPHI，设计一个加法计算器，想让键盘上的数字键与数字按钮同步响应事件。

这是数字按钮1的代码

procedure TMyForm1.But_1Click(Sender: TObject);
begin
with edit_w do
begin
if yusuan=false then
begin
text:='1';
yusuan:=true;
end
else
begin
text:=Text+'1';
end;
cltmp2:=strtofloat(text);
ydeng:=false;
MyForm1.Bbt_fcsClick(sender);

end;
end;
想让按键盘上的数字1也能执行这个事件，不知道怎么做。

希望有懂的人教教我。谢谢！
能不能说的详细一点

Answer 1

你说的按1响应事件要在哪里触发，例如是edit中的话
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key in['1']) then
button1.Click;
end;