TListBoxのItemIndexプロパティが変更されたときに
発生するイベントがほしいので、コンポーネントを作った
のですが、実際に動かしてみると、うまく動きません。
どこが間違っているのでしょうか?

ItemIndexが変更されたときというのは、プログラムで
ListBox1.ItemIndex := 1;
とした場合と、ユーザーがクリックするなり、ListBoxに
フォーカスがあるときに矢印キーを押すなりしたときの
両方の場合です。

Delphi6 Personalです


以下ソースコードの抜粋です

TListBoxEx = class(TListBox)
private
FOnChangeItemIndex: TNotifyEvent;
protected
procedure SetItemIndex(const Value: Integer); override;
published
property OnChangeItemIndex: TNotifyEvent read FOnChangeItemIndex write FOnChangeItemIndex;
end;


procedure TListBoxEx.SetItemIndex(const Value: Integer);
begin
inherited;
OnChangeItemIndex(Self);
end;