другие компоненты....

Комментарии

• -=Den=-

  August 2006 отредактировано 04:32

  Как добавить нестандартное событие описано в руководстве FS "Реализация нестандартных обработчиков событий".
  из скрипта назначается так:
  Time.OnTimer := @TimerProcedure;
• WaReZ_MEN

  August 2006 отредактировано August 2006

  Я читал зделал так:

   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. Кстате когда я ис пользую стандартный таймер то все нармально работает....(Где посмотреть описание стандартных слассов я не знаю).
• -=Den=-

  August 2006 отредактировано 04:32

  А так:
  with fsScript1.AddClass(TOmegaTimer, 'TComponent') do
  AddEvent('OnTimer', TfsNotifyEvent);
• WaReZ_MEN

  August 2006 отредактировано 04:32

  СПАСИБО!!!!!!!!!!!!!!!!!!