如何动态生成一个图标？

Question

我用的是image控件，我想点击增加按纽时动态生成一个图标，
用image.create(Timage(0))可以吗？但是调用的时候反而不见了图标。
这是什么原因？

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
var
Image1:tImage;
begin
  Image1:=Timage.Create(Owner);
 Image1.Parent:=Form1;
 Image1.Picture.LoadFromFile('E:\\icos\方形按钮\fanganniu055.ico');
 Image1.Show;
end;

Answer 2

procedure TForm1.Button2Click(Sender: TObject);
var
c:char;
Image1:tImage;
icon1:Ticon;
begin
 icon1:=Ticon.Create;
 Icon1.LoadFromFile('E:\Program Files\Borland\Delphi7\icos\方形按钮\fanganniu055.ico');
 Image1:=Timage.Create(Owner);
 Image1.Parent:=Form1;
 Image1.Picture.Assign(Icon1);
 Image1.Show;

Answer 3

Image1.Picture.Assign(Icon1);
比较好，

Answer 4

var
Icon: TIcon;
begin
Icon := TIcon.Create;
Icon.LoadFromFile('a.ico);
Image.Canvas.Draw(0,0, Icon);
end;