Recorrer Page Control

[Jere_84]

Hola, estoy haciendo un procedure que valida campos vacíos recorriendo los componentes del Form y haciendo foco en el TDBEdit cuando esta vació. El problema surge si el componente se encuentra dentro de un TPageControl y hay que hacer el Set focus cuando Tab del PageControl no esta en foco.

Alguien sabe como podría obtener los componentes hijos y que frene cuando lo encuentre o algo así?

Slds.

Código Delphi [-]
for a:=0 to TJfPageControl(vForm.Components[i]).Tabs[a].Index do
begin
 // detener en la pagina donde esta el TDbedit
end;

[*Caro*]

Hola Jere_84, al recorrer cada TabSheet puedes obtener el TabIndex donde haya un Edit vacio.

Código Delphi [-]
//con el pagecontrol normal sería algo así
 sheet : TTabSheet;
begin
 for i:=0 to PageControl1.ControlCount-1 do
 begin
  sheet := TTabSheet(PageControl1.Controls[i]);
  for a:=0 to sheet.ControlCount-1 do
   begin
    if sheet.Controls[a] is TEdit then
     if TEdit(sheet.Controls[a]).Text = '' then
      begin
       PageControl1.TabIndex := sheet.TabIndex;
       TEdit(sheet.Controls[a]).SetFocus;
       exit;
      end;
   end;
 end;

Saluditos

[Jere_84]

Empezado por Caro

Hola Jere_84, al recorrer cada TabSheet puedes obtener el TabIndex donde haya un Edit vacio.

Código Delphi [-]
//con el pagecontrol normal sería algo así
 sheet : TTabSheet;
begin
 for i:=0 to PageControl1.ControlCount-1 do
 begin
  sheet := TTabSheet(PageControl1.Controls[i]);
  for a:=0 to sheet.ControlCount-1 do
   begin
    if sheet.Controls[a] is TEdit then
     if TEdit(sheet.Controls[a]).Text = '' then
      begin
       PageControl1.TabIndex := sheet.TabIndex;
       TEdit(sheet.Controls[a]).SetFocus;
       exit;
      end;
   end;
 end;

Saluditos

Gracias caro, lo voy a probar!

Saludos!