Показать сообщение отдельно
  #2  
Старый 04.02.2015, 20:36
Аватар для lmikle
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 6,637
Репутация: 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;
Ответить с цитированием