Problem mit SelText

[DeddyH]

Beispiel:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  //Edit der ComboBox deaktivieren
  ComboBox1.Style := csDropDownList;
  //Items anlegen
  for I := 1 to 10 do
    ComboBox1.Items.Add(IntToStr(i));
  //auf erstes Item setzen
  ComboBox1.ItemIndex := 0;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  //wenn etwas ausgewählt
  if ComboBox1.ItemIndex > -1 then
    //entsprechenden Eintrag anzeigen
    ShowMessage(ComboBox1.Items[ComboBox1.ItemIndex]);
end;