ListBox的一些特殊用法

【文件属性】：
文件名称：ListBox的一些特殊用法
文件大小：5KB
文件格式：RAR
更新时间：2013-09-09 08:58:33
ListBox 在Delphi中，主要通过Canvas画布对象进行绘图，Delphi可以在窗体或组件上绘制出各式各样的图像，通过Canvas的属性将一些图形变为文字，或是将一些文字变为图形；这里我主要是通过Canvas属性来美化列表框ListBox中的列表项： 首先要将ListBox的Style属性设为lbownerDrawFixed，然后再ListBox的OnDrawItem事件上书写代码如下： procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;Rect: TRect; State: TOwnerDrawState);beginwith Control as TListBox dobegin    Canvas.FrameRect(Clientrect);    if odSelected in State then    begin      Canvas.Brush.Color:=clRed;      Canvas.RoundRect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom,8,15); //前面四个参数分别是左上顶角和右下顶点坐标，构成一个矩形区域，后面两参数是来设置四个顶角端的小三角大小，为了美观可自行设定      setBkMode(Canvas.Handle,TRANSPARENT );//这个在前面文章中有介绍，是设置透明背景      Canvas.TextOut((Rect.right-Rect.Left) div 2,Rect.Top,Items.Strings[Index]);    end    else    begin      Canvas.Brush.Color:=clSkyBlue;//这里为了列表项和ListBox背景色一致，最好就都设成一样颜色      Canvas.RoundRect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom,15,15);      Canvas.TextRect(Rect,Rect.Left,Rect.Top,Items.Strings[Index]);    end;end;end;

【文件预览】：
ListBox的一些特殊用法.doc