下面的代码编译通过啊，为什么运行时总报错？

Question

var
  Icon: TIcon;
begin
//.............
  Icon := TIcon.Create;
//SmallImages.Handle := ........//不要
  Icon.Handle := ........
  SmallImages.Add(Icon);
//............
end;

Answer 1

SmallImages.Add(Icon);//此行提示错误 ：（
[Error] Unit1.pas(116): Incompatible types: 'TBitmap' and 'TIcon'请修改，多谢！！

Answer 2

我把//SmallImages.AddIcon (Icon);这就去掉就好了，可是不知道是why啊？
请指教！

Answer 3

我用测试了没有问题呀！
你再From上把ListView1删除
复制下面粘贴到你的From上试试object ListView1: TListView
  Left = 96
  Top = 48
  Width = 250
  Height = 150
  Columns = <>
  Items.Data = {
    250000000100000000000000FFFFFFFFFFFFFFFF000000000000000008616161
    6161616161}
  TabOrder = 0
end

Answer 4

procedure TForm1.Button1Click
(Sender: TObject);
begin
  if ListView1.Items.Count>0 then //加一个判断
    ListView1.Items.Item[0].
ImageIndex:=GetFileIconIndex(Test);
  { 为ListView1中的第一个项目绘制图标 }
end;