Как заставить сделать интервал между кликами??

[kazzz]

Не умею я с таймером обращаться... Подскажите последовательность действий... Допустим надо чтобы между нажатиями проходила одна минута...

procedure TForm1.FormClick(Sender: TObject);
var
pt: TPoint;
begin
{Нажать кнопку 1}
GetCursorPos(pt);
pt.X:=160;
pt.Y:=990;
SetCursorPos(pt.X, pt.Y);
mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, pt.X, pt.Y, 0, 0);
mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, pt.X, pt.Y, 0, 0);

{Нажать кнопку 2}
GetCursorPos(pt);
pt.X:=45;
pt.Y:=990;
SetCursorPos(pt.X, pt.Y);
mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, pt.X, pt.Y, 0, 0);
mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, pt.X, pt.Y, 0, 0);
end;
end.

[katysha]

таймер1 интервал = 60000
таймер2 интервал = 0

====

procedure TForm1.Timer1Timer(Sender: TObject);
begin
какое-то действие;
Timer1.interval:=0; //отключили таймер 1
Timer2.interval:=60000 //включили таймер2 который отсчитывает минуту
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
какое-то действие;
end;

[veniside]

> Timer1.interval:=0; //отключили таймер 1

ужос, а свойство Enabled для кого?

[BoozZzilla]

вешаешь таймер на форму
свойство Enabled выставляешь в false
в процедуре клика по форме, где ты писал оба нажатия пишешь первое нажатие после
Timer1.Interval:=60000;
Timer1.Enabled:=True;
в методе OnTimer своего таймера напишешь процедуру нажатия на вторую кнопку где первой строчкой будешь отключать таймер1 Timer1.Enabled:=false.

может быть глупости написал - поправьте меня кто нибудь...


upd - если кликов будет много то можно прцедурку для клика написать, ты в неё будешь передавать координаты куда нажать и паузу какую тебе надо.
пауза будет как sleep(t); где t - время в милисекундах.
Тока учти что пока у тебя sleep отрабатывает всё стоит, т.е. ничего параллельно естественно работать не будет...

[kazzz]

Буду разбираться...

[FaTaL]

А нельзя между нажатиями просто поставить
Sleep (60000);