Как создать в listbox события OnChange и OnChanging (Delphi 6)?

[AlexSoft777]

ОЧЕНЬ нужно создать в listbox события OnChange и OnChanging (Delphi 6)?
Или подскажите где можно скачать компонент типа listbox события OnChange и OnChanging?

[mihali4]

Да его и самому забацать нетрудно...
Вот, например:

UNIT Lbox;

INTERFACE

USES
  SysUtils, WinTypes, Messages, Classes, Controls, Graphics, Forms,
  Menus, StdCtrls;

type
  TMyListBox = Class(TListBox)
    private
      FOnChange : TNotifyEvent;
      FLastSel : integer;
      procedure Click; override;
    protected
      procedure Change; Virtual;
    published
      property OnChange : TNotifyEvent read FOnChange write FOnChange;
    public
      constructor create(AOwner : TComponent); override;
  end;

procedure Register;

IMPLEMENTATION

procedure TMyListBox.Change;
begin
  FLastSel := ItemIndex;
  if assigned(FOnChange) then FOnChange(self);
end;

procedure TMyListBox.Click;
begin
  inherited Click;
  if FLastSel <> ItemIndex then
     Change;
end;

constructor TMyListBox.Create;
begin
  Inherited Create(AOwner);
  FLastSel := -1;
end;

procedure Register;
begin
  RegisterComponents('MyComponents',[TMyListBox]);
end;

end.

[AlexSoft777]

После компиляции дельфи вот что выдало:

"[Hint] ListBoxPlus.pas(14): Overriding virtual method 'TMyListBox.Click' has lower visibility (private) than base class 'TListBox' (protected)"

Что это за сообщение?

[mihali4]

Ну, если вас так смущают хинты (это не ошибка, а подсказка), то перенесите в самом начале кода:

type
  TMyListBox = Class(TListBox)
    private
      FOnChange : TNotifyEvent;
      FLastSel : integer;
      //procedure Click; override;
    protected
      procedure Click; override;
      procedure Change; Virtual;