
04.02.2015, 20:36
|
 |
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 7,055
Репутация: 49086
|
|
как-то так:
Код:
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;
|