|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как изменить условие/значение в case
Здравствуйте. Таким вот образом регулирую период кликов мышей:
Код:
procedure TForm1.Timer1Timer(Sender: TObject); begin case Timer1.Interval of 2000: begin mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); Timer1.Interval := 35000; end; 35000: begin //событие 1 mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); Timer1.Interval := 2000; end; end end; |
#2
|
|||
|
|||
как-то так:
Код:
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; |
#3
|
|||
|
|||
Цитата:
Код:
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; |