Есть код:
Код: Выделить всё
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 заранее не известно. Спасибо.
