delphi - 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;

Answer 2

该控件可能会尝试搜索列表数据以查找与您正在键入的文本匹配的项目。你实施了这个OnDataFind活动吗？