Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Macci,
9. Apr 2008
Achso. Nein, ich meinte eher so:
For i := 0 To MBListBox.items.Count - 1 Do
If Application.FindComponent('Formular'+IntToStr(i)) = nil Then
With TForm1.Create(Application) do begin
Name := 'Formular' + IntToStr(i);
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Macci,
9. Apr 2008
Wieso nicht? oO
Zugegeben mit einem Array ist es ein wenig performanter, als wenn FindComponent in einer Liste nach einem String suchen muss. Das wars aber auch schon. Selbst wenn sein Proggy ein paar Hundert Forms öffnet, dürfte der Unterschied nicht mal eine Millisekunde ausmachen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Macci,
9. Apr 2008
Das folgende Beispiel erstellt 20 Eingabefelder. und greift über FindComponent mit den Namen der Eingabefelder auf die neu erstellten Eingabefelder zu.
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);