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.