添加如下所示的行：

procedure TfrmList.FormShow(Sender: TObject);
begin
var
  i: integer;
  sb: TSearchBox;
begin
  for i := 0 to ListView1.Controls.Count-1 do
    if ListView1.Controls[I].ClassType = TSearchBox then
    begin
      sb := TSearchBox(ListView1.Controls[i]); 
      Break;
    end;

    sb.FontColor := TAlphaColors.White;
    //or
    sb.TextSettings.FontColor := TAlphaColors.White;
    sb.StyledSettings:=sb.StyledSettings-[TStyledSetting.FontColor]; //<--Add this line.
end;

这是人们经常遇到的一个常见问题。如果StyledSettings属性没有清除related标志，那么你这样修改的任何文本设置都将被忽略。当你在对象检查器中修改字体颜色时，StyledSettings属性将自动更新。但是当你通过编程进行修改时，你还需要在代码中修改StyledSettings。