
29.11.2007, 14:44
|
|
Новичок
Регистрация: 14.06.2007
Сообщений: 7
Провел на форуме: 30728
Репутация:
34
|
|
если уж сильно надо использовать TTimer (я бы не стал этого делать в консольке), то можно так выкрутиться:
Код:
program MyApp;
{$APPTYPE CONSOLE}
uses
ExtCtrls;
type
TSomeObj = class
class procedure MyProc(Sender:TObject);
end;
var
Timer: TTimer;
class procedure TSomeObj.MyProc(Sender: TObject);
begin
{}
end;
begin
Timer := TTimer.Create(nil);
// Timer.OnTimer := MyAppOnTimer; //вот здесь ошибка.
Timer.OnTimer := TSomeObj.MyProc;
end;
|
|
|