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

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

← →
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

---

Страницы: 1 вся ветка

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



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