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Â¥Õý½â