-
-
[求助]关于 SetTimer 和 KillTimer 的问题!!!
-
发表于:
2008-10-24 01:09
5738
-
[求助]关于 SetTimer 和 KillTimer 的问题!!!
procedure MoverMY;
var
i, J : integer;
begin
KillTimer(Form1.Handle, 1); // 我只希望下面的代码只执行一次
J:=Form1.Left;
for I := 0 to 10 do
Form1.Left:= Form1.Left+ 10;
Showmessage(inttostr(Form1.Left -J)); // 并且希望能执行到这行, 事实也是每次都执行到这行, 才退出!!!
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SetTimer(Form1.Handle, 1, 300, @MoverMY);
end;
上面的代码不知有没问题!!!
[课程]Linux pwn 探索篇!