Как иконку засунуть в ImageList?

← →
Mishenka (2003-06-22 03:02) [0]

Получили иконку exe файла типа Hicon, а нужно её засунуть в ImageList, тобишь перевести в ТBitmap?

← →
Spawn (2003-06-22 06:48) [1]

Ну наверна, что то типа етого -

var
Icon:TIcon;

try
Icon:=TIcon.Create;
Icon.Handle:=ExtractIcon(FileName,0);
ImageList1.AddIcon(Icon);
finally
Icon.Free;
end;

Писал без Дельфи, так что могут быть неточности :)

← →
Song (2003-06-22 13:08) [2]

Грубейшая ошибка (отгадай где)

← →
DVM (2003-06-22 14:09) [3]

var
Icon:TIcon;
....
Icon:=TIcon.Create;
try
Icon.Handle:=ExtractIcon(FileName, 0);
ImageList1.AddIcon(Icon);
finally
Icon.Free;
end;

Как иконку засунуть в ImageList? Найти похожие ветки