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