易截截图软件、单文件、免安装、纯绿色、仅160KB

delphi鼠标按下按钮不松触发的什么事件?

想实现按下按钮不松,数字累加怎么实现的?类似这样的。

var
i:integer;
begin
i:=i+1;
label1.caption:=inttostr(i);
end;

试了一下,mousedown也不行啊。
vb可以。有何办法实现没有。
while true do
begin
  i:=i+1;
  label1.caption:=inttostr(i);
end;

在mousedown里面写

得写判断是那哪个键按下了

引用
想实现按下按钮不松,数字累加怎么实现的?类似这样的。


var
i:integer;
begin
i:=i+1;
label1.caption:=inttostr(i);
end;

试了一下,mousedown也不行啊。
vb可以。有何办法实现没有。


不行是:没有反应,还是没有效果,还有有效果但是无中间过程?

Delphi(Pascal) code:
全局或成员变量
bStop:boolean;

mouseDown事件:
var
i:integer;
begin
bStop:=false;
while not bStop do
begin
i:=i+1;
label1.caption:=inttostr(i);
application.processmessages;
end;
end;

mouseUp事件:
begin
bStop:=true;
end;


顶楼上

在Timer里面写上你的累加功能,当WM_LButtonDown=ture then timer1.enabled := ture;当WM_LButtonUp=true then timer1.enabled := false;

4楼正解


相关问答:

小弟不会DELPHI,请大侠们帮个忙

这个是拦截按键消息并测试是否为ENTER键。
  begin
    case wParam of
      WM_KEYDOWN:
      fEatKeystroke := (p.vkCode = VK_RETURN);
  & ......

delphi編寫自動更新程序

由于客戶端有的文件經常更新(遠程的,不是局域網),
所以想寫個自動更新的 程序。
看網上的 方法資料,知道些方法,但不知道具體怎么寫。
......

DELPHI执行程序运行那条代码啊?

嘿嘿,又来麻烦各位大牛了!我想了解我在代码的事件属性里面看不到有什么事件,还有在时间控件里面的Enabled的属性是False,这下蒙了,不知道程序运行之后执行的是那条命令,希望各位大牛赐教啦!
谢谢!
我这下 ......

delphi idhttp cookies提交

我先用idhttp 的get方法访问一个网站,网站返回了一段cookie,当我 调用 idhttp post方法的时候,我如何把服务器返回的这段cookies带上 ,先谢谢各位了 
读取 HTTP Response Header
里面有 Set-Cookies 域 ......

DElPHI生成的EXE文件,怎么把XML文件集成进去

现在做了一个简单的程序,用到了XML作数据库(内容有点多),

目前我是把XML内容写在DELPHI里的一个Const 变量里,可是XML内容少的时候,没有问题,

多了就提示[错误] Unit1.pas(144): Too many local ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号