[Dreammaster]

Здравствуйте. Таким вот образом регулирую период кликов мышей:

Код:

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сек)клик(Хсек)), где Х - значение, вводимое пользователем.

[lmikle]

как-то так:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);   
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);   

  if Timer1.Interval = 2000 
    Then Timer1.Interval := StrToIntDef(Edit1.Text,35000)
    Else  Timer1.Interval := 2000;
end;

[Dreammaster]

Сообщение от lmikle

как-то так:

Сделал следующим образом. Работает:

Код:

Secund: strtointdef(edit1.text)*1000;
inc(i);
if odd(i) then
  begin
   mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
   mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
   Timer1.Interval := Secund;
   end
else
 begin
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  Timer1.Interval := 2000;
 end;