Здравствуйте. Таким вот образом регулирую период кликов мышей:
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
case Timer1.Interval of
2000: begin
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
Timer1.Interval := 35000;
end;
35000: begin
//событие 1
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
Timer1.Interval := 2000;
end;
end
end;
Но "долгий промежуток" может быть не 35 сек, а 10 сек. или 500...И в идеале должен задаваться в Edit. Но Edit - это переменное значение, а case работает только const. Подскажите, как организовать переменный таймер? В идеале должно быть: клик(2сек)клик(Хсек)клик(2сек)клик(Хсек)), где Х - значение, вводимое пользователем.