Delphi 與 DirectX 之 DelphiX(16): DXImageList1.Items.Find();

本例:

代碼檔案:

unit Unit1;interfaceuses  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:\Temp\DelphiX.bmp';  ImgPath2 = 'C:\Temp\DelphiX.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.