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

Цитата:
Сообщение от 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;
Ответить с цитированием