Füllen einer ComboBox im OnCreate eines Frames

[phorax]

Hallo,

ich möchte eine ComboBox cmbBeruf mit Strings befüllen, wenn das Frame frameStammdaten erstellt wird, in etwa so:

Delphi-Quellcode:

constructor TframeStammdaten.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  with cmbBeruf.Items do
  begin
    Add('Irgendein Beruf');
    Add('Noch ein Beruf');
  end;
  // Weitere Controls initialisieren
end;

Anschließend wird das Frame mit InsertControl in die Hauptform eingefügt. Wenn ich Items.Add weglasse, funktioniert es wunderbar. Doch wenn ich Items.Add hinzufüge - das trifft scheinbar nicht nur für ComboBox, sondern für alle Controls zu, die TStrings beinhalten?!? - wird das Frame ohne Fehlermeldung (!) einfach nicht eingefügt: Ich nehme an, dass es nicht richtig erstellt wird. Kann mir jemand von Euch helfen?

[hoika]

Hallo,

der Code sieht OK aus.

Zitat:

in etwa so:

Aha ...
Also machst du doch was anderes.

Zeige den wirklichen Code
oder probier es aus
- Auskommentieren
- Testen
- Code wieder reinnehmen


Ausserdem würde ich das with mal ersetzen

Delphi-Quellcode:

    cmbBeruf.Items.Add('Irgendein Beruf');
    cmbBeruf.Items.Add('Noch ein Beruf');

Heiko

[Neutral General]

Hi,

Ich würde den Code evtl. lieber wirklich ins "echte" OnCreate des Formulars schreiben und nicht in den constructor.

Gruß
Neutral General

[Luckie]

Existieren die Steuerelemente überhaupt zu dem Zeitpunkt schon?

[phorax]

@hoiko: Das with zu ersetzen, bringt wohl nicht so viel ). "In etwa so", weil noch ungefähr 20 andere Berufe hinzugefügt werden...es klappt aber schon mit einem nicht. Das mit dem Auskommentieren habe ich schon gemacht. Deshalb weiß ich ja, woran es hängt, aber eben nicht warum.
@Neutral General: Ein Frame hat kein "echtes" OnCreate. Deswegen diese Lösung.
@Michael: Ja, inherited Create() müsste eigentlich schon alle Elemente erzeugen. Assigned(cmbBerufe) liefert auch True.
Nachtrag: Es bringt auch nichts, die Werte schon in der Entwurfsansicht festzulegen!?!

[alzaimar]

Zitat von Neutral General:

Ich würde den Code evtl. lieber wirklich ins "echte" OnCreate des Formulars schreiben und nicht in den constructor.

Wieso? Funktioniert doch.

Siehe Anhang

[phorax]

@alzaimar: Ja, das funktioniert. Aber nur, wenn ich das Frame zur Design-Time in die Form einfüge. Wenn ich es zur Runtime einfüge (mit InsertControl) geht es nicht...Hab's noch einmal angehängt.

[Ralf Kaiser]

Füge dem Frame doch eine Methode "FillComboBox()" hinzu. Diese Methode füllt dann die Combobox und wird von deinem Code aufgerufen nachdem das Frame eingefügt wurde.

[Hawkeye219]

Hallo phorax,

warum verwendest du InsertControl?

Delphi-Quellcode:

procedure TMainForm.ButtonClick (Sender: TObject);
var
  Frame: TframeStammdaten;
begin
  Frame := TframeStammdaten.Create(Self);
//  InsertControl (Frame);
  Frame.Parent := Self;
end;

Gruß Hawkeye

[phorax]

@Hawkeye219: Weil ich offenbar keine Ahnung habe . Danke!!! Das hat das Problem gelöst! Super!