例如说有10条数据要显示在listbox中我想让其中的几条数据的字体颜色变成红色（错误数据）[2人参与]

当前位置：首页

开发技术指南» 文章正文

引言：

摘要：程序如下：结果是递归时一遍以后返回上一个循环时结果集qrytmptype没有结果了，造成只有一个循环到底的树，请大家分析一下 pnodeinfo=^tnodeinfo; //指针类型,存储对应节点信息 tnodeinfo=packed record nodeid:string; //节点 nodename:string; //节点名称 parentid:string; //父节点 e......

·intel给的中断向量和个人pc的中断向量表有不同 »显示摘要«

摘要：有些出入啊请问这是什么原因啊？ ......

listbox的小问题

例如说有10条数据要显示在listbox中
我想让其中的几条数据的字体颜色变成红色
该如何做
我试了一下字体颜色都变成红色了:(

NO.1 作者： suton

在DrawItem事件裡面處理

NO.2 作者： cjs5210

大哥，我急等分用哟
1.ListBox的Style设置为lbOwnerDrawFixed
2.代码如下:假如1,2,3,6是错误数据，你可以根据自己的需要进行修改
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var ss:string;
begin
ss:=ListBox1.Items[Index];
ListBox1.Canvas.TextRect(Rect,Rect.Left+1,Rect.+1,ss);
if (ss=1)or(ss=2)or(ss=3)or(ss=6) then
with ListBox1.Canvas do begin
FillRect(Rect);
Font.Color:=clRed;
TextOut(Rect.Left,Rect.,ss);
end;
end;

·真彩色和灰度图上的开运算该怎么做 »显示摘要«

摘要：只会做二值图，呵呵。 ......

» 本期热门文章：