Como puedo localizar un DBGrid en un Tabsheet?

[Nieto]

Ok,

AL momento de crear los Grids hago esto:

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);
    ListaGrid.Add(sg);

end;

Entonces seria poner en codigo delphi algo asi

Código Delphi [-]
PageControlIngresos.ActivePage := TTabSheet(Twincontrol(FindComponent(ListaGrid.Items.[i].Name)).Parent);

Saludos;

[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,

[[Lepe]]

Lo que deberías hacer es derivar de TObjectList y crearte tu propia lista, simplificará mucho las cosas.

Código Delphi [-]
TRows = class(TObjectList)
 private
   { private declarations }
 protected
   { protected declarations }
    function GetItem(Index: Integer): TwwGrid;
    procedure SetItem(Index: Integer; ARow: TwwGrid);

 public
   { public declarations }
  property Items[index:integer] : TwwGrid read GetItem write SetItem;
  function Busca(Nombre:string):integer;
 published
   { published declarations }
 end;
implementation

function TRows.GetItem(Index: Integer): ;
begin
  Result := TwwGrid(inherited GetItem(index));
end;

procedure TRows.SetItem(Index: Integer; ARow: TwwGrid);
begin
  inherited SetItem(index, ARow);

end;

function TRows.Busca(Nombre:string):integer;
begin
   for Result := 0 to Count -1 do
     if items[i].Name = Nombre then
        Exit;
   Result:= -1;
end;

Ahora ya tienes redefinido el TobjectList para guardar Grids de tu propio tipo.
Si quieres buscar uno:

Código Delphi [-]
var idx:integer;
begin
  idx := ListaGrids.Busca('dbgrid1');
  if idx <> -1 then
    PageControl1.ActivePage := TTabsheet(ListaGrids[i].Parent);
end;

... Hay formas mejores, pero tendrías que modificar mucho, no sé si será viable. Si estas interesado, pregunta.

Saludos