本例效果图:
![](https://www.cnblogs.com/images/cnblogs_com/del/171104/o_091143.gif)
代码文件:
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:\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.