Delphi - 带有ListView和TabControl的fmx中的错误

Question

我有一个带两个TabItem的TabControl。 每个tabItem都有一个ListView。  第一个TabItem上的listView的OnItemClick事件执行'Ne​​xtTabAction'。

问题是如果我在第二个TabItem上的listView中选择一个项目，它的TextColor是白色而不是黑色。 该错误似乎是如果ListView在TabItem上而不是应用程序启动时可见的TabItem，则其selectedItem的TextColor将为白色。

重现起来非常简单。 我正在使用Delphi Tokyo 10.2

如果页面在启动时可见，那么它看起来就是这样

如果页面在启动时不可见，那么它会以另一种方式查看

有没有办法解决这个问题？

Answer 1

即使在Delphi 10.2 update 3中，这也是ListView的普通行为。 只有在使用制表符过渡时才会发生。

我使用以下代码解决了这个问题：

procedure TForm1.ListView1UpdateObjects(const Sender: TObject; const AItem:  TListViewItem);
var
  Text: TListItemText;
begin
  Text := TListItemText(AItem.View.FindDrawable('T'));
  if Text <> nil then
    Text.SelectedTextColor := TAlphaColors.Black;
end;

当然，您需要更改符合您需求的Drawable名称......