| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

TTimer in RunTime [D6, Win95/98]

Blondin ©   (2002-07-11 16:22:00) 

Мне в консольном приложении необходимо создать
Таймер.
Невыходит подставить свой обработчик события 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:44:00) [1]

>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;


---

Странный Прохожий   (2002-07-11 16:42:00) [2]

SetTimer Win32API, вывести на callback :)

---

Blondin   (2002-07-11 16:39:00) [3]

Слип не катит
А с Таймером что никак невозможно работать в консольном ?

---

Skier   (2002-07-11 16:31:00) [4]

>Kaban
А это уже другой вопрос.
>Blondin
А sleep(...) не поможет ?

---

Blondin   (2002-07-11 16:29:00) [5]

Да, но приложение-то консольное

---

Kaban   (2002-07-11 16:29:00) [6]

ну да.
но тогда в консольном приложении таймер нафиг не нужен

---

Skier   (2002-07-11 16:28:00) [7]

>Kaban
Да ну !!!
Смотри сюда


> Мне в консольном приложении ...

---

Skier   (2002-07-11 16:26:00) [8]

>Blondin

procedure MyOnTimer(Sender:TObject) - должна быть
методом класса !

---

Kaban   (2002-07-11 16:26:00) [9]

procedure TForm1.MyOnTimer(Sender:TObject);

---

Наверх