怎么设置把icon在image上比原来大？

Question

icon放在image上不会拉伸的样子很小有没有方法放大？？充满image？？

Answer 1

这样不行的icon设置stretch是不管用的要不你试一下
有没有其他方法？

Answer 2

Too ease.用 Canvas的CopyRect属性.

Answer 3

icon是不能改变大小的，可以通过画的方式来解决：
procedure TForm1.FormCreate(Sender: TObject);
var
  Icn:TIcon;
  Bmp:TBitmap;
begin
  Icn:=TIcon.Create;
  Bmp:=TBitmap.Create;
  try
    Icn.Assign(Image1.Picture.Icon);
    Image1.Picture.Icon:=nil;
    Bmp.Width:=Icn.Width;
    Bmp.Height:=Icn.Height;
    Bmp.Canvas.Draw(0,0,Icn);
    Image1.Transparent:=True;
    Image1.Canvas.StretchDraw(Image1.ClientRect,Bmp);
  finally
    Icn.Free;
    Bmp.Free;
  end;
end;