Delphi与DirectX之DelphiX（16）：DXImageList1.Items.Find（）

Delphi与DirectX之DelphiX（16）：DXImageList1.Items.Find（）2010-01-27 博客园万一本例效果图:

代码文件:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DXDraws, StdCtrls;
type
TForm1 = class（TForm）
DXDraw1: TDXDraw;
DXImageList1: TDXImageList;
Button1: TButton;
Button2: TButton;
procedure FormCreate（Sender: TObject）;
procedure Button1Click（Sender: TObject）;
procedure Button2Click（Sender: TObject）;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{加载图片并命名, 这也可以在设计时做}
procedure TForm1.FormCreate（Sender: TObject）;
const
ImgPath1 = "C:TempDelphiX.bmp";
ImgPath2 = "C:TempDelphiX.jpg";
begin
DXImageList1.DXDraw := DXDraw1;
DXImageList1.Items.Add;
DXImageList1.Items[DXImageList1.Items.Count-1].Picture.LoadFromFile（ImgPath1）;
DXImageList1.Items[DXImageList1.Items.Count-1].Name := "img1";
DXImageList1.Items.Add;
DXImageList1.Items[DXImageList1.Items.Count-1].Picture.LoadFromFile（ImgPath2）;
DXImageList1.Items[DXImageList1.Items.Count-1].Name := "img2";
end;
procedure TForm1.Button1Click（Sender: TObject）;
begin
DXDraw1.Surface.Fill（0）;
DXImageList1.Items.Find（"img1"）.Draw（DXDraw1.Surface, 0, 0, 0）;
DXDraw1.Flip;
end;
procedure TForm1.Button2Click（Sender: TObject）;
begin
DXDraw1.Surface.Fill（0）;
DXImageList1.Items.Find（"img2"）.Draw（DXDraw1.Surface, 0, 0, 0）;
DXDraw1.Flip;
end;
end.