29.11.2007, 07:49
|
|
Познающий
Регистрация: 27.03.2007
Сообщений: 95
Провел на форуме:
244822
Репутация:
37
|
|
Таймер в консольном приложении
возникла такая проблема:
пишу например:
Код:
program MyApp;
{$APPTYPE CONSOLE}
uses
ExtCtrls;
var
Timer: TTimer;
procedure MyAppOnTimer(Sender: TObject);
begin
{}
end;
begin
Timer := TTimer.Create(nil);
Timer.OnTimer := MyAppOnTimer; //вот здесь ошибка.
end;
При компиляции выдает ошибку -
"Incompatible types: 'method pointer and regular procedure'"
Как сделать правильно? |
|
|