Funcion para validar campos.

[roman]

Empezado por Jere_84

¿como hacer para que recorra los componentes en el orden en como se presentan en pantalla?

A ver, este recorrido debería poder hacerse con FindNextControl, pero se me complica por el hecho de que este método se cicla en lugar de detenerse en el último control.

Pero esta rutina parece funcionar:

Código Delphi [-]
procedure RecorrerCampos(Formulario: TForm);
var
  Lista: TList;
  I: Integer;

begin
  Lista := TList.Create;

  try
    Formulario.GetTabOrderList(Lista);

    for I := 0 to Lista.Count - 1 do
      if TWinControl(Lista[i]) is TEdit then
         ShowMessage(TEdit(Lista[i]).Text);
  finally
    Lista.Free;
  end;
end;

// Saludos