delphi - 如何搜索 FMX.TListView 标头以及项目
问题描述
我有一个 LiveBindings 数据绑定 FMX.TListView,其中 FieldName 是 Stage,FillHeaderFieldName 是 Production。当应用程序运行时,我看到一个使用 HeaderAppearance 的 Productions 列表,并且在每个 Production 中,有一个使用 ItemAppearance 的 Stages 列表。我已打开 SearchVisible 以使组件搜索面板显示在列表顶部。
目前,在搜索框中输入内容仅过滤舞台,而不是制作。
我希望能够做到这两点,并且我希望能够做到这一点,而无需使用过滤器参数进行另一个 REST 调用。我知道我可能需要为OnSearchChange事件编写一个事件处理程序,并且我有这段代码来获取输入的搜索文本:
List := Sender as TListView;
for I := 0 to List.Controls.Count-1 do
if List.Controls[I].ClassType = TSearchBox then
begin
SearchBox := TSearchBox(List.Controls[I]);
break;
end;
而且我认为我需要设置Items.Filter属性,并且我使用了这段代码:
Lower := LowerCase(SearchBox.Text.Trim);
List.Items.Filter :=
function(X: string): Boolean
begin
Result:= (Lower = EmptyStr) or LowerCase(X).Contains(Lower);
end;
问题之一是 ListView 组件在键入字符后立即应用其过滤,而OnSearchChange事件仅在搜索框失去焦点时触发。
第二个问题是,即使在触发事件并设置了新的过滤器函数之后,列表也没有任何反应。
我已经确认我的“36”示例中的List.Items集合实际上包含所有 6 个项目 - 3 个标题项目和 3 个详细信息项目 - 所以我不确定为什么过滤器不适用于标题项目做细节项目。
解决方案
我尝试了这一点并找到了解决方案。请记住,我无法访问 Delphi 10.3 Rio。我正在使用 10.1 柏林。还要记住,我通常做的是在代码中绑定,而不是在视觉上。但为此,我坚持使用视觉绑定。
作为数据集,我使用了一个 TFDMemoryTable (mt1),它有 2 个数据字段(fmt1Prod 和 fmt1Stage)和 1 个计算字段(fmt1Search)。我有以下处理程序来计算搜索字段:
Procedure TForm2.mt1CalcFields(DataSet: TDataSet);
Begin
fmt1Search.AsString := fmt1Prod.AsString + '|' + fmt1Stage.AsString;
End;
我在内存表 OnFormCreate 中放了一些随机数据:
Procedure TForm2.FormCreate(Sender: TObject);
Var
i1, i2: Integer;
s1, s2: String;
Begin
mt1.CreateDataSet;
For i1 := 1 To 13 Do Begin
s1 := 'Prod' + FormatFloat('00', i1);
For i2 := Random(6) To Random(14) Do Begin
s2 := 'Stage' + FormatFloat('00', i2);
mt1.Append;
fmt1Prod.AsString := s1;
fmt1Stage.AsString := s2;
mt1.Post;
End;
End;
End;
我在 Form2 上放了一个 TGrid 和一个 TListView。两者都绑定到数据集。数据和计算字段正确显示在 TGrid 中(只是为了检查)。
TListView 绑定到数据集如下:
Synch <-> *
ItemHeader.Text <- Prod
ItemHeader.Break <- Prod
Item.Text <- Search
Item.Detail <- Stage
我这样做是因为我找不到让 TListView 搜索框在除项目文本之外的任何东西上工作的方法。好吧……但这可以解决:
- 将 TListView.ItemAppeance 设置为自定义
- 在结构中找到 TListView/ItemAppearance/Item/Text 对象并将 Visible 设置为 False
- 在结构体中找到 TListView/ItemAppearance/Item/Detail 对象,并将 Visible 设置为 True
我不确定以上所有内容都是必要的,但它确实有效。如果您的 TListView 是可编辑的,那么您可能也需要摆弄 ItemEditAppearance。
请记住,使用自定义项目外观,您实际上可以将列表视图项目设置为您想要的任何外观。您可以添加和删除标签、图像和其他内容。它没有设计表单那么强大,但你可以用它做很多事情。但您真正需要的只是隐藏搜索文本并在项目中的某处显示舞台文本。
而且...对于更复杂的项目外观,您可能需要进行一些代码绑定(虽然不确定)。