TPageControl en tiempo de ejecución

[Rowerto]

Pues si, exactamente eso.

[jachguate]

Si el string grid tiene un nombre, tan fácil como:

Código Delphi [-]
  tabs := PageControl1.Pages[z];
  stri := Tabs.FindControl('ElNombreDelStrignGrid') as TStringGrid;

Si no lo tiene... pero hay solo uno, entonces algo como esto:

Código Delphi [-]
  tabs := PageControl1.Pages[z];
  stri := nil;
  for I := 0 to Tabs.ControlCount - 1 do
    if Tabs.Controls[i] is TStringGrid then
    begin
      stri := TStringGrid(Tabs.Controls[i]);
      break;
    end;

Esto funcionará si el StringGrid está directamente sobre el PageControl. Si está en otro control, pues se busca directamente en ese contenedor... o se hace una búsqueda recursiva.

Si hay varios StringGrid, pues sería de idear la forma de identificar cuál es el que te interesa y condicionar la asignación hasta que se encuentre el indicado.

Un saludo.

[Rowerto]

Muchisimas gracias jachguate, ha sido una aclaracion diafana y cristalina.
Como cada tabsheet solo tiene un control (que es la stringgrid) lo unico que pongo es:

Código Delphi [-]
stri := Tstringgrid(pagecontrol1.Pages[z].Controls[0]);

y va todo como un tiro.

La verdad, que se me cayo la cara de vergüenza al ver lo simple y facil que era. Yo me estaba rompiendo los cuernos con Controls, Parents y este tipo de cosas... por lo que solo puedo repetir : GRACIAS POR LA AYUDA!!!!