全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1166
推到 Plurk!
推到 Facebook!

如何在combobox同時顯示文字和圖片

尚未結案
flydancing
一般會員


發表:4
回覆:4
積分:1
註冊:2005-01-10

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-01-23 22:52:43 IP:218.160.xxx.xxx 未訂閱
各位前輩~~ 請教一下,如何在combobox上,同時顯示文字和圖?我可以分別顯示出文字和圖形,但如何在文字後面加上一張圖片呢?
James
高階會員


發表:10
回覆:290
積分:220
註冊:2002-07-25

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-01-23 23:24:19 IP:218.163.xxx.xxx 未訂閱
1. 設定 Combobox 的 style 屬性為 csOwnerDrawFixed 2. 在 onDrawItem 的事件中去畫出你要的東西
wameng
版主


發表:31
回覆:1336
積分:1188
註冊:2004-09-16

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-01-24 02:01:38 IP:61.31.xxx.xxx 未訂閱
事實上,這已經是老話重談了。    1. 同意樓上,將ComboBox的style 屬性為 csOwnerDrawFixed(csOwnerDrawVariable)。 2. 建立Items對應的圖片。這裡我示範使用 TImageList 元件,並事先加入圖片。    3. 在ComboBox 的onDrawItem Event 中畫出來。    範例碼如下:
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  With ComboBox1 do
  begin
    Canvas.FillRect(Rect);
    ImageList1.Draw(Canvas,2,Rect.Top,Index);
    Rect.Left := Rect.Left   ImageList1.Width   4;
    Canvas.TextOut(Rect.Left,Rect.Top 1,Items[Index]);
  end;
end;
flydancing
一般會員


發表:4
回覆:4
積分:1
註冊:2005-01-10

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-01-24 11:26:18 IP:220.228.xxx.xxx 未訂閱
太感謝各位前輩了~~ 我已經知道怎麼使用了....
系統時間:2024-05-12 21:49:58
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!