Style设为lbOwnerDrawFixed,然后在OnDrawItem中写代码。
解决方案 »
- delphi怎么在U盘根目录下写数据
- CXGRID高手请进!! 分组后各组的footer问题!!!
- 生命,是什么??
- 动态创建TADOQuery,这样写为何不对?
- 怎样改成函数?
- 建立窗口的问题
- 《〈〈〈〈笑话。请高手帮忙bde问题。
- 各位大侠,哪里有用DELPHI开发的一个完整系统的例子?
- 小新师傅,如果我现在要屏遮一些网址应该如何做呢?
- 为什么 combobox1.item[1] 跟 combobox1.item[i] 不一样呢?前者可以读出text 后者不行!
- SOS:IE浏览器的右键菜单中添加针对选定文本或图片的Extension Context Menu?
- 是不是delphi6的大bug?我用win2000+delpi6+ado还有问题
Rect: TRect; State: TOwnerDrawState);
begin
with Control as TListBox do
begin
Canvas.Pen.Color := clRed;
Canvas.Rectangle(Rect);
Canvas.Font.Color := clGreen;
DrawText(Canvas.Handle, PChar(Items[Index]), -1, Rect, DT_VCENTER or DT_LEFT);
end
end;