Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Создание таймера [D5, Win95/98]

new23 © (2002-08-21 16:00:00)
В 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;
Несовместимые типы.
В чем ошибка?

Anatoly Podgoretsky (2002-08-21 17:46:00) [1]
new23 (21.08.02 16:27)
Ты себе противоречишь TTimer.Create

Digitman (2002-08-21 16:49:00) [2]
>new23

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

MyTimer := TMyTimer.Create (nil);

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

MBo (2002-08-21 16:43:00) [3]
можно создать.
если нет такого желания, можно использовать api SetTimer

new23 (2002-08-21 16:27:00) [4]
но в dll нет ни одного экземпляра каких-нибудь классов

Digitman (2002-08-21 16:23:00) [5]
>new23

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

new23 (2002-08-21 16:17:00) [6]
т.е мне нужно создать экземпляр класса
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;

MBo (2002-08-21 16:04:00) [7]
procedure OnTimer (Sender:TObject);
должна быть МЕТОДОМ класса

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »