Создаю компоненты таким образом:
Код:
Grid[0] := TDrawGrid.Create(Form1);
У меня есть обработчик события:
Код:
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var s : String;
begin
case TDrawGrid(Sender).tag of
1: s := IntToStr(agres);
2: s := IntToStr(alcohol);
3: s := IntToStr(boss);
end;
TDrawGrid(Sender).Canvas.TextOut(35, 1, s);
end;
Где нужно объявить эту процедуру в каком месте или в какой секциии и как ее назначить для обработки события компонента
?