Windows下计算器中使用键盘输入时,屏幕上按键效果如何实现?

[Icebird]

如何用Delphi实现?

[Icebird]

效果不错,不过似乎循环太大了, 5000次足亦

[Lionheart]

var
i: integer;
begin
i:=0;
speedbutton1.down:=true;
while i<10000 do
begin
inc(i);
application.processmessages;
end;
speedbutton1.down:=false;
end;

speedbutton的GROUPINDEX设为非0，ALLOWALLUP设为TRUE，FORM的KeyPreview设为TRUE。对KeyPress编码。