TTimer без TForm

← →
Пивоман (2002-04-28 21:16) [0]

Люди!!!
Помогите: мне нужен таймер, но не нужна форма.
Как мне правильно инициализировать таймер в этом случае?

← →
alxx © (2002-04-28 21:21) [1]

procedure OnTimer(Sender: TObject);
Begin
Showmessage("Test");
End;

...

Var Timer:TTimer;
begin
Timer:=TTimer.Create(nil);
Timer.OnTimer:=OnTimer;
Timer.Interval:=100;
Timer.Enabled:=True;
End;

← →
Anatoly Podgoretsky © (2002-04-28 21:29) [2]

И будет ошибка при компиляции, в строке Timer.OnTimer:=OnTimer;

← →
alxx © (2002-04-28 21:35) [3]

Ну, вообще-то, procedure OnTimer - должен быть методом объекта:

Procedure MyObject.OnTimer(Sender:TObject);

← →
Пивоман (2002-04-28 21:37) [4]

>Anatoly Podgoretsky ©

угу! ошибку выдает! а что делать, не подскажете?

← →
drpass © (2002-04-28 21:39) [5]

А что, будет работать? TTimer инкапсулирует стандартную функцию винды SetTimer. Она требует дескриптор окна для привязки таймера. Нет родительского оконного компонента (читай - формы) - нет дескриптора - по идее, нет таймера. Открой второй поток с низким приоритетом, в нем гоняй GetTickCount или что тебе нравится, и на основе этого реализуй таймер

← →
Dy-Ty (2002-04-29 08:10) [6]

можно сделать все горадо проще (GetTickCount - это конечно хорошо, но .....)

1.объявляешь процедуру, которая будет срабатывать по таймеру
procedure prPr; begin MessageBox(0,"yyy","yyy",MB_OK); end;
2.объявляешь переменную=идентификатор таймера
var pID : integer;
3.создаешь таймер
pID := SetTimer(0,0,300,@prPr); {300 - интервал}
4.грохаешь таймер
KillTimer(0,pID);
и ВСЁ !!!

TTimer без TForm Найти похожие ветки