Delphi TListBox OnClick / OnChange？

似乎除了自己实现这一点之外别无他法.你需要的是记住当前选择的项目,每当 ItemIndex属性从代码更改或控件收到 LBN_SELCHANGE通知(当前触发 OnClick事件)时,您将比较您存储的项目索引与当前项目索引选中,如果它们不同,则触发您自己的OnChange事件.在插入类的代码中,它可以是：

type
  TListBox = class(StdCtrls.TListBoX)
  private
    FItemIndex: Integer;
    FOnChange: TNotifyEvent;
    procedure CNCommand(var Amessage: TWMCommand); message CN_COMMAND;
  protected
    procedure Change; virtual;
    procedure SetItemIndex(const Value: Integer); override;
  published
    property OnChange: TNotifyEvent read FOnChange write FOnChange;
  end;

implementation

{ TListBox }

procedure TListBox.Change;
begin
  if Assigned(FOnChangE) then
    FOnChange(Self);
end;

procedure TListBox.CNCommand(var Amessage: TWMCommand);
begin
  inherited;
  if (Amessage.NotifyCode = LBN_SELCHANGE) and (FItemIndex <> ItemIndeX) then
  begin
    FItemIndex := ItemIndex;
    Change;
  end;
end;

procedure TListBox.SetItemIndex(const Value: Integer);
begin
  inherited;
  if FItemIndex <> ItemIndex then
  begin
    FItemIndex := ItemIndex;
    Change;
  end;
end;