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.


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.


//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]

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


//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!