网络上现有的例子都是添加bmp图片的
解决方案 »
- 在dxDBTreeView中如何实现节点(包含子树)的复制?
- 想在image上画一个粗线,如何在鼠标未按下去的时候让鼠标显示为一个红色半透明的圆形呢?
- 郁闷!请教如何找分软件开发的工作!
- 高手们帮帮我啊
- 利用idlcmpClient.ping()可以讓网絡磁碟機為連通狀態
- 请教大家一个数据库驱动程序(bde,ado,dbexpress)选择的问题?
- 如何实现关机时自动运行某程序,在线等待!!!!!解决即结贴
- 那么难吗,怎么没有人会!!!
- 怎么在DELPHI中打开WORD文档,关闭文档后,自动释放资源
- 如何给adoquery的计算字段赋初始值?
- call published 方法指针的的问题, published 的方法修改父类属性就访问违规, 不知道审什么原因?
- 关于按键被按下的判断
jpg:TJPEGImage;
bmp:TbitMap;
beginjpg:=TJPEGImage.create;
bmp:=TbitMap.create;
jpg.loadfromfile('文件名');
bmp.assign(jpg);
...
...
bmp.free;
jpg.free;
end;
Var
TheBitmap : TBitmap ;
begin
TheBitmap := TBitmap.Create ;
TheBitmap.LoadFromFile(ParamStr(0) + 'Img\1.bmp') ;
ImageList1.Add(TheBitmap, nil) ; TheBitmap.LoadFromFile(ParamStr(0) + 'Img\2.bmp') ;
ImageList1.Add(TheBitmap, nil) ; TheBitmap.LoadFromFile(ParamStr(0) + 'Img\3.bmp') ;
ImageList1.Add(TheBitmap, nil) ; TheBitmap.LoadFromFile(ParamStr(0) + 'Img\4.bmp') ;
ImageList1.Add(TheBitmap, nil) ; TheBitmap.Free ;
end;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList,jpeg, StdCtrls;type
TForm1 = class(TForm)
ImageList1: TImageList;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
Var
TheBitmap : TBitmap ;
begin
TheBitmap := TBitmap.Create ;
TheBitmap.LoadFromFile(ParamStr(0) + 'Img\1.bmp') ;
ImageList1.Add(TheBitmap, nil) ; TheBitmap.LoadFromFile(ParamStr(0) + 'Img\2.bmp') ;
ImageList1.Add(TheBitmap, nil) ; TheBitmap.LoadFromFile(ParamStr(0) + 'Img\3.bmp') ;
ImageList1.Add(TheBitmap, nil) ; TheBitmap.LoadFromFile(ParamStr(0) + 'Img\4.bmp') ;
ImageList1.Add(TheBitmap, nil) ; TheBitmap.Free ;end;procedure TForm1.Button2Click(Sender: TObject);
beginend;procedure TForm1.FormCreate(Sender: TObject);
Var
TheBitmap : TBitmap ;
TheJpeg: TJPEGImage;
begin TheJpeg := TJPEGImage.Create;
TheJpeg.LoadFromFile(ParamStr(0) + 'Img\1.jpg');
TheBitmap := TBitmap.Create ;
TheBitmap.Assign(TheJpeg);
ImageList1.Add(TheBitmap, nil) ; FreeAndNil(TheBitmap) ;
FreeAndNil(TheJpeg);
end;end.