appevnts
подскажите пожалуйста как использовать appevnts
допустим прописываю procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
но не работает!
что надо сделать?
делфа нумбер 7
[COLOR=Red]Большая к вам просьба использовать нормальный русский язык, а не [COLOR=Purple]нумбер 7[/COLOR], согласно правилам форума Дельфи. Модератор.[/COLOR]
допустим прописываю procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
но не работает!
что надо сделать?
делфа нумбер 7
[COLOR=Red]Большая к вам просьба использовать нормальный русский язык, а не [COLOR=Purple]нумбер 7[/COLOR], согласно правилам форума Дельфи. Модератор.[/COLOR]
это событие нступает когда приложение простаивает.
а что ты выполняешь в этом событии?
а что ты выполняешь в этом событии?
Выполняется фунциия directdraw.
Но не в этом проблема.
При использовании других функций appevents(допустим минимизе)
тоже ничего не происходит.
При компиляции исходников другого человека всё прекрасно работает.
в чём причина не ясно. может не добавлял запись?
тоесть как надо правильно оформлять процедуру.
Но не в этом проблема.
При использовании других функций appevents(допустим минимизе)
тоже ничего не происходит.
При компиляции исходников другого человека всё прекрасно работает.
в чём причина не ясно. может не добавлял запись?
тоесть как надо правильно оформлять процедуру.
Код:
procedure ProcIdle(Sender: TObject; var Done: Boolean);
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnIdle := ProcIdle;
end;
.............
procedure TForm1.ProcIdle(Sender: TObject; var Done: Boolean);
begin
Application.OnIdle := ProcIdle;
end;
.............
procedure TForm1.ProcIdle(Sender: TObject; var Done: Boolean);