[440420789]

Здрасьте, помогите пожалуйста, хочу сделать чтобы одна процедура запускалась несколько раз(количество задаем в edit), а потом следующая процедура запускается и тд. например, если я хочу компонент таймер1 испоьзовать 5 раз, потом другой таймер2 10 раз и тд. заранее спасибо.


вот часть кода:

Код:

procedure TForm1.Timer8Timer(Sender: TObject);
begin
i8:=strtoint(edit33.Text);
Kol8:=Kol8+1;
if Kol8<(i8+1) then
begin
setcursorpos(strtoint(edit16.text),strtoint(edit17.text));
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Application.ProcessMessages;
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
if CheckBox9.Checked=true then
begin
Timer1.enabled:=false;
Timer8.enabled:=false;
Timer9.Enabled:=true;
end
else
begin
Timer1.Enabled:=true;
Timer8.enabled:=false;
end;
end;
end;

procedure TForm1.Timer9Timer(Sender: TObject);
begin
i9:=strtoint(edit34.Text);
Kol9:=Kol9+1;
if Kol9<(i9+1) then
begin
setcursorpos(strtoint(edit18.text),strtoint(edit19.text));
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Application.ProcessMessages;
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
if CheckBox10.Checked=true then
begin
Timer1.enabled:=false;
Timer9.enabled:=false;
Timer10.Enabled:=true;
end
else
begin
Timer1.Enabled:=true;
Timer9.enabled:=false;
end;
end;
end;

Админ: пользуемся тегами!

я хочу сделать автокликер, клики происходят через таймер. работает так: например нажимаем на первую точку 5 раз(количество и координаты и интервал таймера задаем в edit, каждой точке отдельно), на вторую точку 10 раз(с определенным интервалом таймера), на третью точку 8 раз и тд..
я незнаю как сделать чтобы он нажимал на первую точку 5 раз, ТОЛЬКО ПОТОМ на вторую 10 раз, ТОЛЬКО ПОТОМ на третью точку 8 раз....
это получается надо каждую процедуру запускать определенное количество раз, тока как это сделать?