DevExpress zur Laufzeit eine ComboBox befüllen ?

[jensw_2000]

Der Code funktioniert definitiv.
Hier noch einmal ein konkretes Beispiel.

Delphi-Quellcode:

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Set_NlComboItems(False); // nicht die Standard-Items im Dropdown zeigen, sondern die "speziellen"
end;

procedure Set_NlComboItems (Default:Boolean);
begin
  with form1.cxGrid1DBTableView1Niederlassung.Properties as TcxComboBoxProperties do
  begin
    Items.Clear;
    if Default=true then   // Standard-Items setzen z.B. im Form.Show;
    begin
      Items.Add('Hamburg');
      Items.Add('Berlin');
      Items.Add('Kiel');
      Items.Add('München');
    end
    else begin // Spezielle-Items setzen z.B. durch Klicken eines Buttons
      Items.Add('Hamburg');
      Items.Add('Berlin');
      Items.Add('Kiel');
      Items.Add('München');
      Items.Add('Bremen');
      Items.Add('Salzgitter');
      Items.Add('Dresden');
    end;
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  Set_NlComboItems(true);
end;

Falls es bei dir immer noch nicht klappt gib uns bitte den Source der Procedur(en), die nicht funktionieren.

[Tau]

Hallo Jens

Es funktioniert

D A N K E



schöne Grüße aus Österreich
Tau