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;
