Показать сообщение отдельно
  #1  
Старый 04.02.2015, 18:22
Dreammaster Dreammaster вне форума
Прохожий
 
Регистрация: 11.06.2014
Сообщения: 25
Версия Delphi: RAD Studio XE3
Репутация: 10
По умолчанию Как изменить условие/значение в case

Здравствуйте. Таким вот образом регулирую период кликов мышей:
Код:
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сек)клик(Хсек)), где Х - значение, вводимое пользователем.
Ответить с цитированием