首页 / 软件开发 / Delphi / Delphi与DirectX之DelphiX（5）：初识TDXImageList

Delphi与DirectX之DelphiX（5）：初识TDXImageList2009-10-11博客园 万一新建工程后, 在窗体上分别添加: DXDraw1、DXImageList1;

然后只需要下面四行代码即可在 DXDraw1 中显示 DelphiX.dxg 图像:

procedure TForm1.Button1Click（Sender: TObject）;
begin
DXImageList1.Items.LoadFromFile（"C:TempDelphiX.dxg"）;
DXImageList1.DXDraw := DXDraw1;
DXImageList1.Items[0].Draw（DXDraw1.Surface, 10, 10, 0）;
DXDraw1.Flip;
end;

你如果没有 dxg 格式的图像, 就下载本例用到的图像吧（下载后解压到C:Temp）:

http://files.cnblogs.com/del/DelphiX_img.rar

DXImageList1 是一个图像列表, 本来用 LoadFromFile 添加很方便, 但现在这个命令很不好用;

不过没关系, 还有其他办法建立图像列表:

1、设计时双击 DXImageList1 图标...这种方法也不好, 目前只支持 dxg 和部分 bmp（dib我没试）;

2、从 DXImageList1 双击其 items 属性...这种方法好, 支持很多种格式;

3、TDXImageList 总归还是 VCL 控件吗, 它可以和其他 VCL 交互; 只要其他控件能加载的图片它都可以拿来用.

下面的例子是用第二种办法添加了两个图片, 运行效果图: