Цитата:
|
Сообщение от Black Raider
вам уже ответили.
объявите глобальную переменную.
при запуске таймера этой переменной присвойте 0
и процедуру таймера измените:
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(Kol)
if Kol<10 then
begin
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Application.ProcessMessages;
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end
else Timer1.enabled:=false;
end; |
всё разобрался спасибо большое!!!!!оказывается надо было просто глобальную переменную объявлять, а я локально тока делал вот и не получалось)) спасибо!!!!