ComboBox alter ItemIndex

[mkinzler]

Dann aber besser so

Delphi-Quellcode:

procedure TForm1.ComboBoxDropDown(Sender: TObject);
begin
  (Sender as TCombobox).Tag := (Sender as TCombobox).ItemIndex;
end;

procedure TForm1.ComboBoxKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  (Sender as TCombobox).Tag := (Sender as TCombobox).ItemIndex;
end;