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

怎样利用Image将ImageList中的Icon秀出

答題得分者是:Rain
bigdogchina
版主


發表:238
回覆:523
積分:312
註冊:2003-04-28

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-07-23 13:23:27 IP:211.162.xxx.xxx 未訂閱
大大们好,小弟的问题如下: 现在有一个ImageList,它已经存储了许多的Icon,能否通过Image将其中的Icon秀出并显示出来呢? Image1.Pcitrue.LoadFormFile ??? ImageList1 实在是不知道该如何秀出,恳请您的点播 人生在勤,不索何获? 發表人 -
------
人生在勤,不索何获?
Rain
資深會員


發表:31
回覆:236
積分:268
註冊:2003-02-17

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-07-23 13:34:55 IP:218.85.xxx.xxx 未訂閱
try it:    
procedure TForm1.Button1Click(Sender: TObject);
var
  AIndex: Integer;
begin
  AIndex := 0;
  ImageList1.GetBitmap(AIndex, Image1.Picture.Bitmap);
  ImageList1.GetIcon(AIndex, Image1.Picture.Icon);
end;
Justmade
版主


發表:94
回覆:1934
積分:2030
註冊:2003-03-12

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-07-23 14:20:31 IP:218.16.xxx.xxx 未訂閱
提供另一個方法參考 : ImageList1.Draw(Image1.Canvas,0,0,0); // 0,0,0 是 x, y, imageindex 這個做法的好處是可畫到任何有 Canvas 的元件如 Form Button 等等,而且可指定位置,還有 Overloaded 的同名方法可設定更多的東西。可看 Help 參考一下。
bigdogchina
版主


發表:238
回覆:523
積分:312
註冊:2003-04-28

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-07-23 16:33:14 IP:211.162.xxx.xxx 未訂閱
非常感谢Rain,Justmade等大大的方法.令我茅塞顿开 > > 它后面好象还有个 >,不过 >
------
人生在勤,不索何获?
Rain
資深會員


發表:31
回覆:236
積分:268
註冊:2003-02-17

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-07-23 16:53:02 IP:218.85.xxx.xxx 未訂閱
哈哈,我給你的只是一般的方法,Justmade大大提供的才是好方法。 另外類似Enabled: Boolean=True這樣的是可選參數,如果沒有給出參數值 就採用=後面的預設值,例如這邊的ImageList1.Draw(Image1.Canvas, 0, 0, 0);相當於ImageList1.Draw(Image1.Canvas, 0, 0, 0, True);如果不想採用預設值,就須在後面加上想傳遞的參數值了
bigdogchina
版主


發表:238
回覆:523
積分:312
註冊:2003-04-28

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-07-23 17:33:11 IP:211.162.xxx.xxx 未訂閱
哇哇哇,我真是井底之蛙,一叶障目,不见泰山.Justmade大大,请原谅我拿无知当个性,宰相肚里能撑船,您肯定不会生我的气,对吧 > > 为什么随着> > 人生在勤,不索何获?
------
人生在勤,不索何获?
系統時間:2024-04-19 19:40:57
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!