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

如何用Delphi实现? 问题点数：50、回复次数：2Top

1 楼Lionheart（狮心）回复于 2000-10-19 01:42:00 得分 50

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编码。  
  Top

2 楼Icebird（冰鸟）回复于 2000-10-19 13:00:00 得分 0

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

相关问题

• 实现

• 帖主：Icebird
• Lionheart

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载