posicionamiento en edits

[dec]

Hola,

A ver si te da alguna idea:

Código Delphi [-]
(* Vamos a usar un supuesto procedimiento "Button1Click" situado
   en el formulario donde también se encuentra un "TPanel", y,
   dentro de este, los "Edits" en cuestión.
*)

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  // Recorremos los controles del contenedor, en este caso el Panel
  for i := 0 to Panel1.ControlCount - 1 do
  begin
    // Comprobamos que el control sobre el que estamos es un TEdit
    if (Panel1.Controls[i] is TEdit) then
    begin
      // Y comprobamos por último si su propiedad "Text" no está vacía
      if (Trim(TEdit(Panel1.Controls[i]).Text) <> '') then
      begin
        // Hay texto en este Edit
      end else begin
        // No hay texto en este Edit
      end;
    end;
  end;
end;