Hallo zusammen,
ich habe eine ComboBox, in denen ich die Componentenarten als String hinterlegt habe, wie TTabSheet oder TBitBtn.
Nun möchte ich , wenn man z.B. TTabSheet auswählt in einer weiteren ComboBox alle verfügbaren Namen der TTabSheets auf einer Form dort eingefügt werden. Hier mein Code:
Delphi-Quellcode:
procedure TForm1.CB_Item_ArtChange(Sender: TObject);
var
I: Integer;
StrList: TStringList;
Form: TForm;
begin
Form := Form1;
StrList := TStringList.Create();
For I := 0 to Form.ComponentCount - 1 do
begin
if Form.Components[I] is CB_Item_Art.Text then
begin
StrList.add(Form.Components[I].Name);
end;
end;
CB_Item.Clear;
CB_Item := StrList;
end;
Gegen was muss ich in dem Code diesen Eintrag: "CB_Item_Art.Text" ersetzen, damit es klappt ?
Gruss
Holger