自己慢慢用
Canvas画吧,可以的

解决方案 »

  1.   

    方法一、做六个IMAGE
    方法二、查ICON资料,把ICON格式读出来,再画在IMAGE.CANVAS上
    方法三、还没想出来
      

  2.   

    在窗体上放一个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;