此為轉貼資料 列表框添光彩 -------------------------------------------------------------------------------- ?了改變Listbox和Combobox兩個控制項的單調風格， 我想在它們的每一項前面加上個圖示。從表面上看好像不大可能啦。就在走投無路的時候，我忽然發現這兩個構件都有一個style屬性， 它可以設?lbOwnerDrawFixed，Draw這個單詞吸引了我，然後我又從Delphi的在線幫助中找到了一個相關的事件OnDrawItem，在這個事件中寫一段代碼，就可以在列表框中的每一項前面添加一個小圖示啦。 ---- 下面是在Listbox 的OnDrawItem事件中添加的代碼： procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); var Bitmap: TBitmap; Offset: Integer; begin with (Control as TListBox).Canvas do begin FillRect(Rect); Offset := 2; Bitmap := TBitmap.create; Bitmap.LoadFromFile(′d:\temp1\1.bmp′); //指定圖文件是d:\temp1\1.bmp BrushCopy(Bounds(Rect.Left ＋ 2, Rect.Top, Bitmap.Width, Bitmap.Height), Bitmap, Bounds(0, 0, Bitmap.Width, Bitmap.Height), clRed); Offset := Bitmap.width ＋ 6; TextOut(Rect.Left ＋ Offset, Rect.Top, (Control as TListBox).Items[Index]) end; end; ---- 進一步，利用OnDrawItem事件的參數Index還可以在不同項前面添加不同的圖示。還要告訴你的是， 當用add方法?列表框或下拉清單添加專案時， 會自動執行 OnDrawItem事件，這樣新添加的專案前面也就有了一個圖示。 ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起

------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind