如何通过ListBox.DrawItem为含非数字项设置红色背景？

嘿，我来帮你搞定这个ListBox项标红的问题！你已经找对方向了——确实需要用自绘（Owner-Draw）的方式来实现自定义背景色，下面我给你一步步讲清楚具体怎么做，附完整的Delphi代码示例：

1. 准备存储无效项的集合 #

首先，我们需要一个地方记录哪些项不符合全数字要求（避免每次绘制都重新扫描，提升性能）。可以在Form的类里声明一个TList<Integer>来存无效项的索引：

private
  InvalidItems: TList<Integer>;

然后在Form的创建/销毁事件里初始化和释放这个集合：

procedure TForm1.FormCreate(Sender: TObject);
begin
  InvalidItems := TList<Integer>.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  InvalidItems.Free;
end;

2. 实现全数字验证函数 #

写一个函数来检查字符串是否全为数字（这里默认支持整数，如果你需要浮点数/正负号，可以扩展逻辑）：

function IsAllDigits(const S: string): Boolean;
var
  I: Integer;
begin
  Result := False;
  if S = '' then Exit;
  for I := 1 to Length(S) do
  begin
    if not CharInSet(S[I], ['0'..'9']) then
      Exit;
  end;
  Result := True;
end;

3. 扫描ListBox项并标记无效项 #

在加载文件后，调用扫描逻辑，把无效项的索引存入集合：

procedure TForm1.ScanListBoxForInvalidItems;
var
  I: Integer;
begin
  InvalidItems.Clear; // 清空之前的标记
  for I := 0 to ListBox1.Items.Count - 1 do
  begin
    if not IsAllDigits(ListBox1.Items[I]) then
      InvalidItems.Add(I); // 记录无效项索引
  end;
  ListBox1.Invalidate; // 触发重绘，让背景色生效
end;

然后在你加载文件的代码后面调用这个方法：

if OpenDialog1.Execute then
begin
  ListBox1.Items.LoadFromFile(OpenDialog1.FileName);
  ScanListBoxForInvalidItems; // 加载完成后立即扫描
end;

4. 配置ListBox并编写DrawItem事件 #

首先，把ListBox的Style属性设置为lbOwnerDrawFixed（如果所有项高度相同）。然后双击ListBox的OnDrawItem事件，编写绘制逻辑：

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  ListBox: TListBox;
  BrushColor: TColor;
begin
  ListBox := Control as TListBox;

  // 确定背景色：无效项用红色，选中项用系统高亮色，其余用默认背景
  if InvalidItems.IndexOf(Index) <> -1 then
    BrushColor := clRed
  else
  begin
    if odSelected in State then
      BrushColor := clHighlight
    else
      BrushColor := ListBox.Color;
  end;

  // 绘制背景
  ListBox.Canvas.Brush.Color := BrushColor;
  ListBox.Canvas.FillRect(Rect);

  // 绘制文本：处理选中状态的文本颜色
  if odSelected in State then
    ListBox.Canvas.Font.Color := clHighlightText
  else
    ListBox.Canvas.Font.Color := ListBox.Font.Color;

  // 把文本绘制到项的区域内（偏移2像素避免贴边）
  ListBox.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, ListBox.Items[Index]);
end;

额外说明 #

• 如果需要支持带正负号的数字或浮点数，只需要修改IsAllDigits函数：比如允许第一个字符是+/-，允许出现一个.。
• 若使用Delphi 10.4+版本，可以用THashedList<Integer>替代TList<Integer>，提升无效项索引的查找速度。

这样就能实现你想要的效果：加载文件后，所有包含非数字的项会显示红色背景，其他项保持默认样式。

内容的提问来源于stack exchange，提问作者Kristian Sander