在Delphi中,主要通过Canvas画布对象进行绘图,Delphi可以在窗体或组件上绘制出各式各样的图像,通过Canvas的属性将一些图形变为文字,或是将一些文字变为图形;这里我主要是通过Canvas属性来美化列表框ListBox中的列表项: 首先要将ListBox的Style属性设为lbownerDrawFixed,然后再ListBox的OnDrawItem事件上书写代码如下: procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;Rect: TRect; State: TOwnerDrawState)