德尔福7的TImage和的TImageList

Question

i为整数私人

代码

procedure TForm1.Image1Click(Sender: TObject); 
begin 
    inc(i); 
    ImageList1.GetIcon(i mod 4,Image1.Picture.Icon); 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    i:=0; 
    ImageList1.GetIcon(i mod 4,Image1.Picture.Icon); 
end; 

我如何舒展的图标从列表中，以适应图像1的大小？

Answer 1

procedure TForm1.Image1Click(Sender: TObject); 
var 
    icon: TIcon; 
begin 
    inc(i); 
    Image1.Canvas.FillRect(ClientRect);  
    icon := TIcon.Create; 
    try 
    ImageList1.GetIcon(i mod 4, icon); 
    DrawIconEx(Image1.Canvas.Handle, 0, 0, icon.Handle, Image1.Width, Image1.Height, 0, 0, DI_NORMAL); 
    finally 
    icon.Free; 
    end 
end; 

更好的办法

有时是有点别扭使用Delphi自VCL和本地Windows API之间合作的程度是有些不清楚。如果上面的代码不工作（给我的感觉是漏水的图标），这里是纯天然的方法（uses ImgList, CommCtrl）：

procedure TForm1.Image1Click(Sender: TObject); 
var 
    icon: HICON; 
begin 
    inc(i); 
    Image1.Canvas.FillRect(ClientRect); 
    icon := ImageList_GetIcon(ImageList1.Handle, i mod 4, ILD_NORMAL); 
    try 
    DrawIconEx(Image1.Canvas.Handle, 0, 0, icon, Image1.Width, Image1.Height, 0, 0, DI_NORMAL); 
    finally 
    DestroyIcon(icon); 
    end 
end;