Como puedo localizar un DBGrid en un Tabsheet?

[Nieto]

Buenos dias,

Foro,

Tengo un problema. Y explico la situacion,

1. Tengo un pagecontrol, que en tiempo de ejecucion creo "n" tabsheet y dbgrids.


Como puedo buscar o localizar un dbgrid en la hojas creadas tabsheets en tiempo de ejecucion.

Nota : Tambien los dbgrid estan creadas en tiempo de ejecucion.

Por donde puedo empezar ? Tienen alguna idea.

Saludos,

Gracias

[jhonny]

Te sirve algo como esto?

Código Delphi [-]
ShowMessage(TDBGrid(FindComponent('DBGrid1')).Owner.Name);

Donde DBGrid1 es el nombre del DBGrid en cuestión .

[jhonny]

Incluso, podemos activar el TabSheet que contiene ese DBGrid, asi:

Código Delphi [-]
PageControl1.ActivePage := TTabSheet(TDBGrid(FindComponent('DBGrid1')).Parent);

[Nieto]

Jhonny,

Los Componentes que utilizo son Twwdbgrid, en este caso utilizaria este codigo:

Codigo:

ShowMessage(TwwDBGrid(FindComponent(Twwdbgrid)).Owner.Name);

[jhonny]

Si, TwwDBGrid es descendiente de TWinControl, no sera necesario que especifiques la clase el TwwDBGrid, de hecho tambien puedes hacerlo asi, en cualquiera de los dos casos:

Caso 1:

Código Delphi [-]
ShowMessage(TWinControl(FindComponent('DBGrid1')).Parent.Name);

Caso 2:

Código Delphi [-]
PageControl1.ActivePage := TTabSheet(TWinControl(FindComponent('DBGrid1')).Parent);

[Nieto]

Jhonny,

Disculpa mi ignorancia,

Haber si te entendi, en el caso del 'DBGrid1' es un campo fijo verdad o es como debo de buscarlo, porque en mi caso yo creo los dbgrids en tiempo de ejecucion, y no se que nombres les puso .

Mi duda es : como se que debo de asignar como busqueda en el FindComponent

[jhonny]

Ideate un mecanismo que asigne los nombres a los DBGrid a la hora de crearlos en ejecución.

Asi tendras ese identificador que es necesario para ejecutar el codigo que te he mencionado.

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

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

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