Как определить свое событие NewStringGridOnDrawCell динамически созданных StringGrid и Form

[loom12]

Сообщение от IliaIT

в корне не верный подход. надо динамически определять тип и объект в данном случае
было

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 StringGrid1.Canvas.Brush.Color:=clRed;
  if ((ACol=2)and(ARow=2)) then    // ((ACol=2) столбцов   ARow=3  строки
    StringGrid1.Canvas.FillRect(Rect);
end;

а надо (код не проверял может где орфография хромает)

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with (sender as TStringGrid) do 
  begin
    Canvas.Brush.Color:=clRed;
    if ((ACol=2)and(ARow=2)) then    // ((ACol=2) столбцов   ARow=3  строки
    Canvas.FillRect(Rect);
  end;
end;

Сейчас так и сделал

procedure TForm1.StringGridOnDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var i:Integer;
begin


    for i:=0 to (Sender as TStringGrid).RowCount-1 do
   if (Sender as TStringGrid).Cells[0,i]='!' then
    begin
      if ((ACol=0)and(ARow=i)) then
      begin
        (Sender as TStringGrid).Canvas.Brush.Color:=clRed;
        (Sender as TStringGrid).Canvas.FillRect(Rect);
      end;
    end;

end;

 // а привязка вот так
procedure Create_ObjNewStringGrid;
begin
..
  NewStringGrid[index_newform]:= TStringGrid.Create(NewForm[index_newform]);
..
  NewStringGrid[index_newform].OnDrawCell:=form1.StringGridOnDrawCell; //!!!
..
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

Сейчас так и сделал

нормально. чтобы каждый раз не писать (Sender as TStringGrid)
удобно использовать

with (Sender as TStringGrid) do ...

или объявить локальную переменную и обращаться через неё:

procedure TForm1.StringGridOnDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var i:Integer;
  locSG : TStringGrid
begin
   if Not Sender is TStringGrid then Exit; {выход из процедуры если вдруг её назначили не StringGrid}
   locSG := Sender as TStringGrid;
   for i:=0 to locSG.RowCount-1 do
      if  locSG.Cells[0,i]='!' then 
....

но так делать совсем не обязательно - это просто для удобства/упрощения читаемости кода.
На работоспособность это упрощение никак не повлиет.