Einzelnen Beitrag anzeigen

jensw_2000
(Gast)

n/a Beiträge
 
#11

Re: DevExpress zur Laufzeit eine ComboBox befüllen ?

  Alt 22. Mär 2005, 17:56
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.
Miniaturansicht angehängter Grafiken
nach_button1_click_527.gif   nach_form1_show_718.gif  
  Mit Zitat antworten Zitat