Roman tiene razón, pero es que como la propia ayuda de delphi lo usa dentro de un ciclo, pues pensé que no era tan malo....
Cita:
|
Empezado por Ayuda de Delphi
The following example creates 20 edit boxes, using FindComponent with the edit box name to access each newly created edit box.
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
const
NamePrefix = 'MyEdit';
begin
for i := 1 to 20 do begin
TEdit.Create(Self).Name := NamePrefix + IntToStr(i);
with TEdit(FindComponent(NamePrefix + IntToStr(i))) do
begin
Left := 10;
Top := i * 20;
Parent := self;
end;
end;
end;
|
De todos modos siempre podrás definirte un arreglo donde sus elementos apunten a cada uno de los edits y recorrerlo, son algunas líneas de código más, pero será mucho mas eficiente.
Digo eso creo.
Saludos
