Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c