TTimer in RunTime

← →
Blondin (2002-07-11 16:22) [0]

Мне в консольном приложении необходимо создать
Таймер.
Невыходит подставить свой обработчик события OnTime
Делаю :
...
procedure MyOnTimer(Sender:TObject);
...
MyTimer:=TTimer.Create(nil);
MyTimer.Interval:=60000;
MyTimer.OnTime:=MyOnTimer;// - ERROR
Ошибка несовместимости типов metod pointer и regular procedure

Попытки типа @MyOnTimer, pointer(MyOnTimer) не проходят

← →
Skier © (2002-07-11 16:26) [1]

>Blondin

procedure MyOnTimer(Sender:TObject) - должна быть
методом класса !

← →
Kaban © (2002-07-11 16:26) [2]

procedure TForm1.MyOnTimer(Sender:TObject);

← →
Skier © (2002-07-11 16:28) [3]

>Kaban
Да ну !!!
Смотри сюда

> Мне в консольном приложении ...

← →
Blondin (2002-07-11 16:29) [4]

Да, но приложение-то консольное

← →
Kaban © (2002-07-11 16:29) [5]

ну да.
но тогда в консольном приложении таймер нафиг не нужен

← →
Skier © (2002-07-11 16:31) [6]

>Kaban
А это уже другой вопрос.
>Blondin
А sleep(...) не поможет ?

← →
Blondin (2002-07-11 16:39) [7]

Слип не катит
А с Таймером что никак невозможно работать в консольном ?

SetTimer Win32API, вывести на callback :)

>Blondin

TStupidClass = class private FTimer : TTimer; protected procedure MyOnTimer(Sender:TObject); public constructor Create; destructor Destroy; override; end; //TStupidClass { TStupidClass } constructor TStupidClass.Create; begin inherited Create; FTimer := TTimer.Create(nil); FTimer.OnTimer := MyOnTimer; end; destructor TStupidClass.Destroy; begin FTimer.Enabled := False; FTimer.Free; FTimer := nil; inherited Destroy; end; procedure TStupidClass.MyOnTimer(Sender: TObject); begin // your code goes here... end;

TTimer in RunTime Найти похожие ветки