Recorrer Page Control

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