这个有错误吗？为什么不能创建一个动态图标？

Question

var
  Image2:tImage;
  icon1:Ticon;
begin
  icon1:=Ticon.Create;
  try
    icon1.LoadFromFile('C:\Documents and Settings\Administrator\My Documents\My Pictures\112.ico');
  except
  end;
    Image2:=Timage.Create(owner);
    Image2.Canvas.Draw(0,0,icon1);
    Image2.Parent:=fmmaininf;
    Image2.Picture.Assign(icon1);
    Image2.Show;
end;

Answer 1

delphi能不能动态创建一个图标呀？怎么没人回答我呀？着急等

Answer 2

1 上面的代码没有问题啊，只是Image2:tImage;在外面定义比较好一点
2 你更改draw的坐标就行了阿
3 动态创建图标？什么意思？文件？用ticon.savetofile不行么？

Answer 3

1 上面的代码没有问题啊，只是Image2:tImage;在外面定义比较好一点
2 你更改image控件或者draw的坐标就行了阿
3 动态创建图标？什么意思？文件？用ticon.savetofile不行么？Microsoft OLE DB Provider for SQL Server 错误 '80040e31' 超时已过期 /Expert/reply.asp，行105

Answer 4

1 上面的代码没有问题啊，只是Image2:tImage;在外面定义比较好一点
2 你更改image控件或者draw的坐标就行了阿
3 动态创建图标？什么意思？文件？用ticon.savetofile不行么？

Answer 5

var
  icon1:Ticon;
  hh:longint;
begin
  icon1:=Ticon.Create;
  try
    icon1.LoadFromFile('C:\Documents and Settings\Administrator\My Documents\My Pictures\112.ico');
    hh:= icon1.Handle;
    Drawicon(image2.Canvas.Handle,0,0,hh);
  except
  end;
end;

Answer 6

1 上面的代码没有问题啊，只是Image2:tImage;在外面定义比较好一点
2 你更改image控件或者draw的坐标就行了阿
3 动态创建图标？什么意思？文件？用ticon.savetofile不行么？

Answer 7

当然可以实现，猜想你是想使用n个image来实现。只要改变相应image的坐标就可以了。

Answer 8

一定要用N个image控件才能实现吗？

Answer 9

可以
改变Drawicon(image2.Canvas.Handle,0,0,hh);中的坐标就可以了。

Answer 10

动态控件最好设置一下其top left width