大虾们,谁能解决这个问题,我想了一天一夜(急)!(200分)

dfwczy20 · 2006-02-06

为什么2个按鼠标的命令都不能执行
var
i1:shortint;
procedure TForm1.Timer5Timer(Sender: TObject);
begin
inc(i1);
if i1=30 then
begin
windows.ClipCursor(0);
SetCursorPos(29,326);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
rect.Left:=100;
rect.Top:=100;
rect.Bottom:=200;
rect.Right:=200;
windows.ClipCursor(@rect);
end;
if i1=40 then
begin
windows.ClipCursor(0);
SetCursorPos(953,12);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;
Timer5.Enabled:=false;
end;

royal1442 · 2006-02-06

Timer5.Enabled:=false;
该事件只执行一次？

dfwczy20 · 2006-02-06

衣雪峰 · 2006-02-06

label aa;
begin
aa:
goto aa;
循环一下

衣雪峰 · 2006-02-06

label aa;
begin
aa:
goto aa;
循环一下

衣雪峰 · 2006-02-06

你写一个线成把时钟的代码写到线成里。然后。用始终来调用线成。

jangill · 2006-02-06

你在Timer5的定时器事件里写了"Timer5.Enabled:=false;", 该定时器只执行了一次, 以后就停止了.最好仔细说明您的需求.

fling_wolf · 2006-02-06

该过程只执行一次,l1只能加1,加不到30,也就是说两个IF语句的条件都不满足怎么执行?

中国最猥琐的程序员 · 2006-02-06

看了半天代码，看的我好混~~~
i1是如何赋值到 30 或 40 的?
楼上的仁兄说的及是~~~
条件不满足~~~

dfwczy20 · 2006-02-08

xiexie

WUSUBAR · 2006-02-09

这样只执行一次数据怎么能增加到30or40?
所以我认同衣雪锋做法在AA处编写循环代码

jangill · 2006-02-10

最好仔细说明您的需求.

kaoleoloi · 2006-02-11

帮顶！

╭=========================================╮

80G海量源代码,控件，书籍全免费狂下不停！

http://www.source520.com

╰=========================================╯

cq99888 · 2006-02-11

鼠标指向按钮的位置对吗？可能指到按钮外了。

大虾们,谁能解决这个问题,我想了一天一夜(急)!(200分)

dfwczy20

Unregistered / Unconfirmed

royal1442

Unregistered / Unconfirmed

dfwczy20

Unregistered / Unconfirmed

衣雪峰

Unregistered / Unconfirmed

衣雪峰

Unregistered / Unconfirmed

衣雪峰

Unregistered / Unconfirmed

jangill

Unregistered / Unconfirmed

fling_wolf

Unregistered / Unconfirmed

中国最猥琐的程序员

Unregistered / Unconfirmed

dfwczy20

Unregistered / Unconfirmed

WUSUBAR

Unregistered / Unconfirmed

jangill

Unregistered / Unconfirmed

kaoleoloi

Unregistered / Unconfirmed

cq99888

Unregistered / Unconfirmed

Similar threads