Delphi - Listview+OwnerData = 按键时发出蜂鸣声

Question

使用OwnerData(虚拟)的TListView，当我按下LV作为主动控件的键时，它会发出BEEP声。我怎样才能避免这种情况？

Answer 1

正如 Remy Lebeau 所说，问题是 OnDataFind 没有实现，但你应该这样实现:

procedure TForm1.ListViewDataFind(Sender: TObject; Find: TItemFind; const FindString: string;
  const FindPosition: TPoint; FindData: Pointer; StartIndex: Integer; Direction: TSearchDirection;
  Wrap: Boolean; var Index: Integer);
begin
  // Here we must find currently selected element
  if Assigned((Sender as TListView).Selected) then
    Index := (Sender as TListView).Selected.Index;
end;