Загрузить иконку формы из ресурса

← →
Urri (2004-01-26 12:54) [0]

Здравствуйте всем.

Имеется: RES-файл с иконкой "ICONNAME" 16х16х256, подключаем его как {$R RESFILENAME.RES}.
Хочется: при создании формы в рантайме загрузить иконку системного меню формы из этого ресурса.
Пробовалось:

1) В обработчике FormCreate:
Icon.Handle:=LoadIcon(Application.Handle, "ICONNAME");
Меняет иконку системного меню на иконку приложения

2) Там же
var
lRS: TResourceStream;
begin
lRS:=TResourceStream.Create(Application.Handle, "ICONNAME", RT_ICON);
try
Icon.LoadFromStream(lRS);
finally
lRS.Free;
end;
Падает на TResourceStream.Create: Ресурс ICONNAME не найден
Тут же пытался вставить "MAINICON", который вроде в ресурсе проекта находится - тоже не найден

Подскажите, как все-таки можно желаемое получить?

Заранее спасибо.

← →
Юрий Зотов (2004-01-26 13:05) [1]

Не Application.Handle, а HInstance.

← →
Serge (2004-01-26 13:07) [2]

Тем же
LoadIcon(...);

Var IC : HIcon;
Ic:=LoadIcon(HInstance, "ICONNAME");

Зачем тебе еще через TResourceStream лезть ?

← →
Urri (2004-01-26 13:11) [3]

Поехало, большое спасибо

Загрузить иконку формы из ресурса Найти похожие ветки