Как Icon (Icon:hIcon) запихать в ImageList

← →
He`KTo (2004-08-28 16:55) [0]

Я думаю что нужно Icon (var Icon:hIcon) преобразовать в Ico(var Ico:TIcon), а потом пихать в ImageList, но как это сделать не знаю....(вот как наоборот- знаю :d)

← →
GuAV © (2004-08-28 17:26) [1]

> Я думаю что нужно Icon (var Icon:hIcon) преобразовать в
> Ico(var Ico:TIcon),

А я думаю, что нужно создать TIcon, присвоить его хендл hIcon а потом пихать. Или использовать WinAPI непосредственно.

← →
He`KTo (2004-08-28 17:40) [2]

Если не сложно- напишите пример кода.
Как я делаю - ошибок нет но не работает!!!
Заранее благодарю!

← →
GuAV © (2004-08-28 17:43) [3]

Посмотри CreateMessageDialog - там hIcon который LoadIcon(0, IconID); в TImage вставляют.

← →
He`KTo (2004-08-28 17:46) [4]

спасиб- посмотрю

← →
He`KTo (2004-08-28 17:55) [5]

У меня нет этого примера в Help, только описание :
function CreateMessageDialog(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons): TForm;

>У меня нет этого примера в Help
Я имел ввиду другое, мою анкету смотри.
Вот сам ещё пример написал:
procedure TForm1.FormCreate(Sender: TObject);
var Icon: TIcon;
begin
Icon:=TIcon.Create;
try
Icon.Handle:=LoadIcon(0, IDI_QUESTION);
Image1.Picture.Icon.Assign(Icon); //юзаем
finally
Icon.Free;
end;
end;

Как Icon (Icon:hIcon) запихать в ImageList Найти похожие ветки