Текущий архив: 2002.07.22;
Скачать: CL | DM;
Вниз
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]Слип не катит
А с Таймером что никак невозможно работать в консольном ?
← →
Странный Прохожий © (2002-07-11 16:42) [8]SetTimer Win32API, вывести на callback :)
← →
Skier © (2002-07-11 16:44) [9]>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;
Страницы: 1 вся ветка
Текущий архив: 2002.07.22;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.01 c
