DELPHI 让LISTBOX 不同内容的行显示不同颜色

笨办法，看信息内容而定：Style = lbOwnerDrawFixed，先设置一个默认字体颜色(黑色)，加以下2种(暗红、绿色)就有3种了。

procedure TfrmMain.MsgListDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  position: Integer;
  str: string;
begin
  str := MsgList.Items.Strings[Index];
  position := AnsiPos('！', str);
  if position > 0 then
  begin
    MsgList.Canvas.FillRect(Rect);
    MsgList.Canvas.Font.Color := clMaroon;
  end;

  position := AnsiPos('未', str);
  if position > 0 then
  begin
    MsgList.Canvas.FillRect(Rect);
    MsgList.Canvas.Font.Color := clGreen;
  end;
  MsgList.Canvas.TextOut(Rect.Left + 1, Rect.Top + 1, MsgList.Items.Strings[Index]);
end;