Cita:
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