Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 D7 Сменить иконку работающего приложеничя  [new]
minva
Member

Откуда: г. Калуга
Сообщений: 1206
Добрый день!
Затык на ровном месте
Отредактировал файл ресурсов, добавив туда свою иконку
Смену делаю так
Application.Icon.Handle := LoadIcon(hInstance, '1');
  InvalidateRect(Application.Handle, nil, True);


Иконка не отрисовывается. Application.Icon.Handle становится = 0
Что не так делаю?
Приложение обычное свежесозданное.
спасибо

К сообщению приложен файл. Размер - 12Kb
12 ноя 20, 12:38    [22230680]     Ответить | Цитировать Сообщить модератору
 Re: D7 Сменить иконку работающего приложеничя  [new]
wadman
Member

Откуда: Санкт-Петербург
Сообщений: 26836
Чем плохо присвоить иконку в свойствах проекта?
12 ноя 20, 12:46    [22230684]     Ответить | Цитировать Сообщить модератору
 Re: D7 Сменить иконку работающего приложеничя  [new]
wadman
Member

Откуда: Санкт-Петербург
Сообщений: 26836
А код кривой, ежели есть желание на лету менять в зависимости от состояния.
Прежде, чем присваивать Handle, его нужно освободить.

Но лучше смотреть в сторону класса TIcon, а у Application.Icon как ни странно есть метод Assign.
12 ноя 20, 12:50    [22230688]     Ответить | Цитировать Сообщить модератору
 Re: D7 Сменить иконку работающего приложеничя  [new]
minva
Member

Откуда: г. Калуга
Сообщений: 1206
wadman, этот код во всех FAQ и форумах по Delphi в разных вариациях. Значит он должен был как-то работать?
12 ноя 20, 13:03    [22230696]     Ответить | Цитировать Сообщить модератору
 Re: D7 Сменить иконку работающего приложеничя  [new]
Dimitry Sibiryakov
Member

Откуда:
Сообщений: 51772

minva
Значит он должен был как-то работать?

"Как-то работал" и "был правильным" это две совершенно разные вещи. Особенно когда идёт о
помойных FAQ.

Posted via ActualForum NNTP Server 1.5

12 ноя 20, 13:22    [22230711]     Ответить | Цитировать Сообщить модератору
 Re: D7 Сменить иконку работающего приложеничя  [new]
white_nigger
Member

Откуда: Тула
Сообщений: 2428
Это где ж такой бред опубликован?
12 ноя 20, 13:23    [22230712]     Ответить | Цитировать Сообщить модератору
 Re: D7 Сменить иконку работающего приложеничя  [new]
minva
Member

Откуда: г. Калуга
Сообщений: 1206
white_nigger, запросом в яндекса "Загрузить иконку из ресурса". Почти все ссылки - вариации на эту тему
12 ноя 20, 13:26    [22230716]     Ответить | Цитировать Сообщить модератору
 Re: D7 Сменить иконку работающего приложеничя  [new]
minva
Member

Откуда: г. Калуга
Сообщений: 1206
Еще упростим.
Hnd : HICON;
Hnd := LoadIcon(hInstance, '1');
Возвращает 0. НО в ресурсном же файле она есть, эта иконка. Чтоб не так-то?
12 ноя 20, 13:56    [22230742]     Ответить | Цитировать Сообщить модератору
 Re: D7 Сменить иконку работающего приложеничя  [new]
Zelius
Member

Откуда: Россия, Москва
Сообщений: 1475
minva,

If the function fails, the return value is NULL. To get extended error information, call GetLastError.
12 ноя 20, 14:00    [22230746]     Ответить | Цитировать Сообщить модератору
 Re: D7 Сменить иконку работающего приложеничя  [new]
Zelius
Member

Откуда: Россия, Москва
Сообщений: 1475
minva,

а вообще, то что иконка есть в res файле не значит что она попала в exe, проверь его заодно
12 ноя 20, 15:49    [22230845]     Ответить | Цитировать Сообщить модератору
 Re: D7 Сменить иконку работающего приложеничя  [new]
alekcvp
Member

Откуда:
Сообщений: 2485
minva,

Добавляй иконку в отдельный .res-файл и уже его подключай к проекту через {$R имяфайла.res}.
12 ноя 20, 16:07    [22230869]     Ответить | Цитировать Сообщить модератору
 Re: D7 Сменить иконку работающего приложеничя  [new]
YuRock
Member

Откуда: Донецк
Сообщений: 4339
Я всегда пользовался WM_SETICON. Работает.
13 ноя 20, 02:52    [22231192]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить