求助：图片操作，谢谢

Question

大家帮帮忙啊！我现想实现：通过多个小图标布局一张图片（背景图），操作时只要选择状态图标，选择的图标自动显示在背景图表面，也就是动态加载多个小图标了。可是我不知道如何实现？？请教高手能否给点方案和代码啊？？谢谢了

Answer 1

１．用多个TImage
２．响应鼠标事件时判断鼠标的位置

Answer 2

可以呀,指定image的autosize,top,left,heigth,width属性,当然还有picture属性

Answer 3

就是：ImageList1.GetIcon(Index,Image1.Picture.Icon)
//INDEX为图标在imageList1中的顺序号，第一个为0，以此类推
//Image1.Picture.Icon 为动态显示图标，你只需变换index的数值就可动态显示图标了 
 
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ImgList;type
  TForm1 = class(TForm)
    ImageList1: TImageList;
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure SetImageBitmap(Index: Integer);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.SetImageBitmap(Index: Integer);
begin
  if (Index<0)or(Index>=ImageList1.Count) then Exit;
  //ImageList1.GetBitmap(Index,Image1.Picture.Bitmap);
  ImageList1.GetIcon(Index,Image1.Picture.Icon);
  Image1.Invalidate;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  SetImageBitmap(1);
end;end.
 

Answer 4

楼上的你只显示一个图片，我可能要动态加载很多图标啊？？是多个，如何实现啊？？
要是能动态创建多个Image就可以实现了吗？？