按如下方式設置ListBox控件的屬性:
風格屬性:？lbOwnerDrawFixed
顏色屬性:？ClMoneyGreen(白色也有)
2.響應ListBox的事件，並編寫如下代碼:
程序？TForm1。ListBox1DrawItem(控件:？TWinControl？指數:？整數；
Rect:？TRect？狀態:？TOwnerDrawState)；
定義變量
s:？字符串；
開始
用什麽？TListBox(控件)。畫布？做
開始
如果？(odSelected？在？狀態)？還是？(odFocused？在？狀態)？然後
開始
刷。顏色？:=?clNavy
字體。顏色？:=?clWhite
結束
其他
開始
刷。顏色？:=?clMoneyGreen
字體。顏色？:=?clBlack
結束；
案子？指數？關於
1:
字體。風格？:=?[fs italic]；
2:
字體。風格？:=?[fs bold]；
3:
字體。風格？:=?【fsBold，？fs italic]；
結束；
s？:=?TListBox(控件)。項目[索引]；
DrawText(句柄，PChar(s)，？長度？Rect，？DT_SingleLine？還是？DT _ VCenter)；
結束；
結束；