erneut Groupbox Problem

[Franzelchen]

Hallo,

Ich möchte gerne mehreren Groupboxes jeweils die Eigenschaft Caption aus einer Listox zuweisen. Meine Vorstellung ist diese

Delphi-Quellcode:

For i := 1 to Listbox.Items.Count-1
Groupbox[1].Caption := Listbox.Items[i-1];

Leider macht der Code nicht das was er soll.
Wie mach ich das richtig?

[toms]

Hallo

Der Fehler liegt hier:

Groupbox[1].Caption 1. Groupbox[1] würde immer nur einer Groupbox die Caption zuweisen.
2. Eine Groupbox kann man nicht so ansprechen -> Eine Möglichkeit wäre mit FindComponent.

[Franzelchen]

Entschuldigung! Mein Fehler. Es hätte

Delphi-Quellcode:

For i := 1 to Listbox.Items.Count-1 
Groupbox[i].Caption := Listbox.Items[i-1];

heißen sollen.

[toms]

Zitat von Franzelchen:

Entschuldigung! Mein Fehler. Es hätte

Delphi-Quellcode:

For i := 1 to Listbox.Items.Count-1 
Groupbox[i].Caption := Listbox.Items[i-1];

heißen sollen.

Punkt 2 ist weiterhin gültig

Zitat von toms:

2. Eine Groupbox kann man nicht so ansprechen -> Eine Möglichkeit wäre mit FindComponent .

[mkinzler]

Höchstens er verwaltet seine GroupBoxen in einem Array mit der Bezeichnug GroupBox

[toms]

Zitat von mkinzler:

Höchstens er verwaltet seine GroupBoxen in einem Array mit der Bezeichnug GroupBox

Wäre eine Möglichkeit. Doch dann sollte sein Code funktionieren, außer das ist anders zu interpretieren:

Zitat von Franzelchen:

Leider macht der Code nicht das was er soll.

[Franzelchen]

Ich habe mir die beiden Möglichkeiten aus dem Posting von FL63 angeschaut. FindComponent ist sehr kompliziert für'nen Anfänger und mit dem Array steh ich auch auf dem Schlauch.

[toms]

Wie viele GroupBoxen hast du denn?

[mkinzler]

Zitat:

FindComponent ist sehr kompliziert für'nen Anfänger

Warum
(Form.FindComponent( 'GroupBox'IntToStr(i)) as TGroupBox).Caption := ...

[toms]

oder ohne FindComponent (dieses ist nicht so performant):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, l : Integer;
begin
  l := 0 ; // Bei Listbox Item 0 beginnen, also beim ersten Item
  for i := 0 To ControlCount - 1 do // Durch alle Control der Form gehen
    if Controls[i] is TGroupBox then // Falls das Control eine TGroupBox, dann
    begin
      if l > Listbox1.Count then Break; // nicht über das letzte Item der Listbox lesen
      TGroupBox(Controls[i]).Caption := Listbox1.Items[l]; // Setzte Caption der Groupbox von Item[l]
      Inc(l); // nächster Eintrag in der Listbox
    end;
end;