Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Problem beim füllen einer ComboBox


pepsen - Mi 29.11.06 10:25
Titel: Problem beim füllen einer ComboBox
Tach...


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
    ComboBoxErweitern := TComboBox.Create(self);
    query1.SQL.Clear;
    query1.SQL.Add('SELECT * FROM Z4MSYS WHERE ART=''SO'' ORDER BY F1');
    query1.Open;
    query1.Last;
    lastdate := StrToFloat(query1.FieldByName('F1').AsString) - 693594;
    decodeDate(lastdate, lyear, lmonth, lday);
    ComboBoxErweitern.Text := FloatToStr(lyear);
    for j := lyear to 2015 do ComboBoxErweitern.Items.Add(FloatToStr(j)); // Hier knallts!

Fehlermeldung: Element '' hat kein übergeordnetes Fenster

Wo is der Fehler? :?


Reinhard Kern - Mi 29.11.06 10:48
Titel: Re: Problem beim füllen einer ComboBox
user profile iconpepsen hat folgendes geschrieben:
Tach...


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
    ComboBoxErweitern := TComboBox.Create(self);
    query1.SQL.Clear;
    query1.SQL.Add('SELECT * FROM Z4MSYS WHERE ART=''SO'' ORDER BY F1');
    query1.Open;
    query1.Last;
    lastdate := StrToFloat(query1.FieldByName('F1').AsString) - 693594;
    decodeDate(lastdate, lyear, lmonth, lday);
    ComboBoxErweitern.Text := FloatToStr(lyear);
    for j := lyear to 2015 do ComboBoxErweitern.Items.Add(FloatToStr(j)); // Hier knallts!

Fehlermeldung: Element '' hat kein übergeordnetes Fenster

Wo is der Fehler? :?


Hallo,

probier mal "ComboBoxErweitern.Parent := Form1;" nach dem Create.

Gruss Reinhard


pepsen - Mi 29.11.06 10:53

wunderbar, so lieb ich das =D
schnell, kurz und verständlich...ich danke dir!

MfG Pepsen