Zitat:
[...] Comboboxen hinzufügen, dabei soll bei jedem weiteren Click eine neue Combobox unter der vorherigen angehängt werden.
Noch erfüllt keins der Beispiele diese Anforderung. Das Prinzip ist aber ersichtlich.
Für meins dann so in etwa... bezeichner könnten falsch sein, immer noch nur notepad..
Delphi-Quellcode:
var
Form1: TForm1;
cbList: TList;
implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
cbList := TList.Create;
end;
procedure TForm1.Button1Click(Sender: TObject);
var cb: TComboBox;
begin
cb := TComboBox.Create(self);
cb.Parent := self;
cb.Top := (cbList.Count * (cb.Height + 3));
// weitere eigenschaften setzen
cbList.Add(cb);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i: integer;
begin
// einfach mal testen ob's nötig ist, ich möchte mich nicht festlegen
for i := 0 to cbList.Count-1 do
TComboBox(cbList[i]).Free;
cbList.Free;
end;
Super! Das funktioniert einwandfrei. Vielen Dank für euere Hilfe!
Nun abschließend noch; den Inhalt von Comboboxen fülle ich ja normalerweise in der StringList der Combobox in den Properties. Das funktioniert hier wie es scheint nicht, da ja noch keine Combobox vorhanden ist, welche ich füllen kann.
Wie kann ich nun den Inhalt aller erzeugter Comboboxen vorbestimmen?