OnChange bei jedem Itemindex auslösen

[DeddyH]

Noch bequemer:

Delphi-Quellcode:

type
  TComboBox = class(StdCtrls.TComboBox)
  protected
    procedure SetItemIndex(const Value: Integer); override;
  published
    property ItemIndex: Integer read GetItemIndex write SetItemIndex;
  end;

  //Hier dann erst die Deklaration des Formulars mit den ComboBoxen

{ TComboBox }

procedure TComboBox.SetItemIndex(const Value: Integer);
begin
  inherited;
  if Assigned(Self.OnChange) then
    Self.OnChange(Self);
end;

Somit entfällt ein Typecast, und das klappt auch unter älteren Delphi-Versionen.