With fsScript1.AddClass(TOmegaTimer,'TComponent') do
Begin
AddEvent('OnTimer',TfsEventClass(TOmegaTimer));
End;
Скрипт:
Var
OmegaTimer1: TOmegaTimer;
Procedure OmegaTimer1Timer(Sender: TObject);
Begin
ShowMessage('1');
End;
...
OmegaTimer1.OnTimer:=@OmegaTimer1Timer;
end
в результате ошибка:
Access violation at adress 0041C41A in module 'project1.exe'.Read of address FFFFFFFF'
я думаю может в место TfsEventClass что то другое писать нужно.
P.S. Кстате когда я ис пользую стандартный таймер то все нармально работает....(Где посмотреть описание стандартных слассов я не знаю).
Комментарии
из скрипта назначается так:
Time.OnTimer := @TimerProcedure;
Скрипт:
в результате ошибка:
Access violation at adress 0041C41A in module 'project1.exe'.Read of address FFFFFFFF'
я думаю может в место TfsEventClass что то другое писать нужно.
P.S. Кстате когда я ис пользую стандартный таймер то все нармально работает....(Где посмотреть описание стандартных слассов я не знаю).
with fsScript1.AddClass(TOmegaTimer, 'TComponent') do
AddEvent('OnTimer', TfsNotifyEvent);