05.02.2015, 08:29
|
Прохожий
|
|
Регистрация: 11.06.2014
Сообщения: 36
Версия 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;
|