UC知道求delphi 键盘事件
来源：百度知道 编辑：UC知道 时间：2024/06/04 03:12:59
我是初学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也能执行这个事件，不知道怎么做。
希望有懂的人教教我。谢谢！
能不能说的详细一点
这是数字按钮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也能执行这个事件，不知道怎么做。
希望有懂的人教教我。谢谢！
能不能说的详细一点
你说的按1响应事件要在哪里触发，例如是edit中的话
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key in['1']) then
button1.Click;
end;