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里面写
得写判断是那哪个键按下了
不行是：没有反应，还是没有效果，还有有效果但是无中间过程？
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楼正解
相关问答：
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
(在A ......
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
由于客戶端有的文件經常更新（遠程的，不是局域網），
所以想寫個自動更新的 程序。
看網上的 方法資料，知道些方法，但不知道具體怎么寫。
......
