OnChange bei jedem Itemindex auslösen

[mleyen]

Klar gibts die:

Delphi-Quellcode:

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

{ TCBox2 }

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