freepascal.ru

Привет всем!
Есть код:

Код: Выделить всё

type
  TCell = class( TObject )
    T: TTimer;
    constructor Create;
    procedure WorkOnTimer( Sender: TObject );
    destructor Destroy;
  end;

var
Cell: TCell;

implementation

constructor TCell.Create;
begin
  inherited Create;
  T := TTimer.Create( nil );
  T.OnTimer:= WorkOnTimer; //   <--------  Тут выдаёт ошибку
end;

destructor TCell.Destroy;
begin
  T.Free;
  inherited;
end;

procedure TCell.WorkOnTimer( Sender: TObject );
begin
  { ********* }
end;


Объясните двоечнику, как правильно назначить выполнение процедуры на событие OnTimer. TTimer создаётся динамически, ибо кол-во объектов TCell заранее не известно. Спасибо.

Мда. Ну держи.

Код: Выделить всё

Cell.T.onTimer:=Cell.WorkOnTimer;


Но это если стоит режим совместимости с Delphi

Иначе будет

Код: Выделить всё

... :=@Cell.WorkOnTimer;


Ну конечно же! Огромное спасибо!