OnChange bei jedem Itemindex auslösen

[himitsu]

Zitat von Ti-Delphin:

Hab's auch schon direkt aufgerufen...dachte nur es gäbe eine elegantere Methode dies zu tun

Delphi-Quellcode:

procedure SetComboBoxItemIndex(ComboBox: TComboBox; NewIndex: Integer);
begin
  ComboBox.ItemIndex := 42;
  if Assigned(ComboBox.OnChange) then
    ComboBox.OnChange(ComboBox); 
end;

Ab D2006 könnte man das auch als Class-Helper für TComboBox/TCustomComboBox bereitstellen.