Das folgende Beispiel erstellt 20 Eingabefelder. und greift über FindComponent mit den Namen der Eingabefelder auf die neu erstellten Eingabefelder zu.
Delphi-Quellcode:
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;
----
Die entscheiden zwei Punkte sind NAME und FINDCOMPONENT.
Edit: Dein Formular kannst dann über Application.FindComponent wiederfinden.
Viele Grüsse,
Macci