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

TBitbtn元件如何使用TImageList中的Image

答題得分者是:cmf
atwood
一般會員


發表:14
回覆:17
積分:6
註冊:2002-03-27

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-01-23 17:14:16 IP:61.230.xxx.xxx 未訂閱
TBitbtn元件如何使用TImageList中的Image
cmf
尊榮會員


發表:84
回覆:918
積分:1032
註冊:2002-06-26

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-01-23 17:19:33 IP:61.218.xxx.xxx 未訂閱
引言: TBitbtn元件如何使用TImageList中的Image
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, StdCtrls, Mask, DBCtrls, ComCtrls, ImgList, Buttons; type TForm1 = class(TForm) BitBtn1: TBitBtn; ImageList1: TImageList; procedure PageControl1Change(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin // ImageList1.GetBitmap(1,BitBtn1.Glyph); end; end.
------
︿︿
atwood
一般會員


發表:14
回覆:17
積分:6
註冊:2002-03-27

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-01-24 10:08:46 IP:61.230.xxx.xxx 未訂閱
謝謝 cmf 兄: 不過我是想將TImageList中的Image,指給Tbitbtn.Glyph
cmf
尊榮會員


發表:84
回覆:918
積分:1032
註冊:2002-06-26

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-01-24 10:19:22 IP:61.218.xxx.xxx 未訂閱
procedure TForm1.FormCreate(Sender: TObject); var  b1:TBitmap; begin    b1:=TBitmap.create; ImageList1.GetBitmap(1,b1); BitBtn1.Glyph:=b1; b1.free; end;    end.        
------
︿︿
atwood
一般會員


發表:14
回覆:17
積分:6
註冊:2002-03-27

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