在窗体上放一个imagelist,里面加入六个icon再放一个image,高为16,宽为96;用如下代码; procedure TForm1.Button1Click(Sender: TObject); var i:integer; rect1:trect; bitmap1:tbitmap; begin bitmap1:=tbitmap.Create; for i:=0 to 5 do begin rect1.Left:=i*16; rect1.Top:=0; rect1.Right:=(i+1)*16; rect1.Bottom:=16; imagelist1.GetBitmap(i,bitmap1); image1.Canvas.CopyRect(rect1,bitmap1.Canvas,rect(0,0,16,16)); end; bitmap1.free; end;
方法二、查ICON资料,把ICON格式读出来,再画在IMAGE.CANVAS上
方法三、还没想出来
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
rect1:trect;
bitmap1:tbitmap;
begin
bitmap1:=tbitmap.Create;
for i:=0 to 5 do
begin
rect1.Left:=i*16;
rect1.Top:=0;
rect1.Right:=(i+1)*16;
rect1.Bottom:=16;
imagelist1.GetBitmap(i,bitmap1);
image1.Canvas.CopyRect(rect1,bitmap1.Canvas,rect(0,0,16,16));
end;
bitmap1.free;
end;