摘要： 很简单的ListBox自画 最终效果图：Ｌazarus也一样 ListBox的两个设置： 自画事件：ListBox1DrawItem procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect 阅读全文