Como puedo localizar un DBGrid en un Tabsheet?

[jhonny]

Antes de seguir, por favor usa las etiquetas DELPHI que tiene el foro para mostrar codigo fuente...

Por otro lado, esta bien que captures asi el TabSheet en cuestión, pero deberias asignar un nombre al DBGrid al momento de crearlo, por ejemplo asi:

Código Delphi [-]
  public
    { Public declarations }
   ListaGrid: TObjectList;


procedure TFRpt.GeneraHojas;
var sg: TwwDbGrid
begin
  if not Assigned(ListaGrid) then
    ListaGrid := TObjectList.Create;

    sg  := TwwDbGrid.Create(self);
    sg.Name := 'sg'+IntToStr(ListaGrid.Count);
    ListaGrid.Add(sg);

end;

[Nieto]

Disculpa, me falto poner esa parte, si lo hago al momento de crear la tabla.

Pero, ya encontre la manera de sacar el componente Twwdbgrid con este codigo,

Código Delphi

for a := 0 to ComponentCount - 1 do begin
Componente := '';
if Components[a] is TwwDBGrid then
Componente := (Components[a] as TwwDBGrid).Name;
if Componente <> '' then Break;

end;


Solo lo que me falta convertir el nombre del componente a Twwdbgrid,

Para poder exportar a Excel

Con esta funcion :

Código Delphi

dGrid := TwwDBGrid(Componente); No estoy seguro si asi es como se aplica para convertir a Twwdbgrid.
ExportaAExcel3(DGrid, Nombre, x, j);


Saludos,