Показать сообщение отдельно

  #5  
Старый 29.11.2007, 14:44
Aristarh Dark
Новичок
Регистрация: 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;
 
Ответить с цитированием