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

[zealothasu]

icon放在image上不会拉伸的

样子很小

有没有方法放大？？充满image？？

[SilveryFox]

设置timage控件的stretch属性

[zealothasu]

这样不行的

icon设置stretch是不管用的

要不你试一下


有没有其他方法？

[zealothasu]

没有人回答？
很难吗？

[DoMoreGame]

Too ease.用 Canvas的CopyRect属性.

[blazingfire]

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;

[pdbird]

up

[zealothasu]

good