Создание таймера

← →
new23 (2002-08-21 16:00) [0]

В dll создаю таймер.

Timer := TTimer.Create (nil);
Timer.Enabled := false;
Timer.Interval := 1000;
Timer.OnTimer := OnTimer;
Timer.Enabled := true;

где
procedure OnTimer (Sender:TObject);
begin
// мой код
Timer.Free;
end;

Компилятор ругается на строку Timer.OnTimer := OnTimer;
Несовместимые типы.
В чем ошибка?

← →
MBo (2002-08-21 16:04) [1]

procedure OnTimer (Sender:TObject);
должна быть МЕТОДОМ класса

← →
new23 (2002-08-21 16:17) [2]

т.е мне нужно создать экземпляр класса
Tmytimer = class(ttimer)
procedure OnTimer (Sender:TObject);
end;

var
MyTimer: TMytimer;

MyTimer := TMyTimer.Create (nil);
MyTimer.Enabled := false;
MyTimer.Interval := 1000;
MyTimer.OnTimer := OnTimer;
MyTimer.Enabled := true;

← →
Digitman (2002-08-21 16:23) [3]

>new23

Не обязательно создавать экземпляр наследника именно TTimer.
Достаточен любой экземпляр любого класса, имеющего данный процедурный метод

← →
new23 (2002-08-21 16:27) [4]

но в dll нет ни одного экземпляра каких-нибудь классов

← →
MBo (2002-08-21 16:43) [5]

можно создать.
если нет такого желания, можно использовать api SetTimer

← →
Digitman (2002-08-21 16:49) [6]

>new23

Здрааасьте-приехали !
А это что, по-твоему ?

MyTimer := TMyTimer.Create (nil);

Разве ты не экземпляр класса создаешь сей строчкой ?

← →
Anatoly Podgoretsky (2002-08-21 17:46) [7]

new23 (21.08.02 16:27)
Ты себе противоречишь TTimer.Create

Создание таймера Найти похожие ветки