Delphi ComboBox per Hand füllen

Thema durchsuchen

Ansicht

Themen-Optionen

ComboBox per Hand füllen

Ein Thema von lore · begonnen am 4. Jun 2008 · letzter Beitrag vom 1. Jul 2008

Vorheriger Beitrag

Nächster Beitrag

DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.656 Beiträge

Delphi 12 Athens

Re: Combox per Hand füllen

4. Jun 2008, 16:35

Ich habe hier eine ComboBox mit Style csDropDown. In deren OnKeyDown habe ich Folgendes:

markieren

Delphi-Quellcode:

			procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

  if Key = VK_RETURN then

    begin

      if ComboBox1.Items.IndexOf(ComboBox1.Text) < 0 then

        ComboBox1.Items.Add(ComboBox1.Text);

    end;

end;

Meintest Du so etwas?

Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen