grid dinamico

[wil_ramone]

Buenas tardes

alguien me podría ayudar a pintar un stringgrid en tiempo de ejecución??

estoy trabajando en un pagControl en tiempo de ejecución

//aquí creo elo pagcontrol en tiempo de ejecucion
TabSheet := TTabSheet.Create(_verRporte.pgReportes);
TabSheet.PageControl := _verRporte.pgReportes;
TabSheet.Name := DM.Query1.Fields[0].Text;
TabSheet.Caption := TabSheet.Name;

//aquí le pongo el grid a cada pag creado
gridTmp := TStringGrid.Create(nil);
gridTmp.Align := alClient;
gridTmp.Parent := TabSheet;
gridTmp.Name := 'stgReportes';
gridTmp.RowHeights[0]:=250;

lo que no se como hacer es darle es efecto del drawcell a los gird creados
todos tienen que tener el mismo formato

espero haberme explicado bien

gracias

[[AgustinOrtu]]

Asigna un evento al manejador OnDrawCell

Código Delphi [-]
type
  TForm1 = class(TForm)
  private
   GridsOnDrawCell(...);
  end;


...

gridTmp.OnDrawCell := GridsOnDrawCell;