ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / D7 Сменить иконку работающего приложеничя
12 сообщений из 12, страница 1 из 1
D7 Сменить иконку работающего приложеничя
    #40017471
minva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
minva
Участник
Добрый день!
Затык на ровном месте
Отредактировал файл ресурсов, добавив туда свою иконку
Смену делаю так
Код: pascal
1.
2.
Application.Icon.Handle := LoadIcon(hInstance, '1');
  InvalidateRect(Application.Handle, nil, True);



Иконка не отрисовывается. Application.Icon.Handle становится = 0
Что не так делаю?
Приложение обычное свежесозданное.
спасибо
...
Рейтинг: 0 / 0
12.11.2020, 12:38
| Ответить | Цитировать | Написать  
D7 Сменить иконку работающего приложеничя
    #40017474
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
Чем плохо присвоить иконку в свойствах проекта?
...
Рейтинг: 0 / 0
12.11.2020, 12:46
| Ответить | Цитировать | Написать  
D7 Сменить иконку работающего приложеничя
    #40017477
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
А код кривой, ежели есть желание на лету менять в зависимости от состояния.
Прежде, чем присваивать Handle, его нужно освободить.

Но лучше смотреть в сторону класса TIcon, а у Application.Icon как ни странно есть метод Assign.
...
Рейтинг: 0 / 0
12.11.2020, 12:50
| Ответить | Цитировать | Написать  
D7 Сменить иконку работающего приложеничя
    #40017483
minva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
minva
Участник
wadman, этот код во всех FAQ и форумах по Delphi в разных вариациях. Значит он должен был как-то работать?
...
Рейтинг: 0 / 0
12.11.2020, 13:03
| Ответить | Цитировать | Написать  
D7 Сменить иконку работающего приложеничя
    #40017491
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
minvaЗначит он должен был как-то работать?

"Как-то работал" и "был правильным" это две совершенно разные вещи. Особенно когда идёт о
помойных FAQ.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
12.11.2020, 13:22
| Ответить | Цитировать | Написать  
D7 Сменить иконку работающего приложеничя
    #40017492
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_nigger
Участник
Это где ж такой бред опубликован?
...
Рейтинг: 0 / 0
12.11.2020, 13:23
| Ответить | Цитировать | Написать  
D7 Сменить иконку работающего приложеничя
    #40017495
minva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
minva
Участник
white_nigger, запросом в яндекса "Загрузить иконку из ресурса". Почти все ссылки - вариации на эту тему
...
Рейтинг: 0 / 0
12.11.2020, 13:26
| Ответить | Цитировать | Написать  
D7 Сменить иконку работающего приложеничя
    #40017510
minva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
minva
Участник
Еще упростим.
Hnd : HICON;
Hnd := LoadIcon(hInstance, '1');
Возвращает 0. НО в ресурсном же файле она есть, эта иконка. Чтоб не так-то?
...
Рейтинг: 0 / 0
12.11.2020, 13:56
| Ответить | Цитировать | Написать  
D7 Сменить иконку работающего приложеничя
    #40017511
Zelius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Zelius
Участник
minva,

If the function fails, the return value is NULL. To get extended error information, call GetLastError.
...
Рейтинг: 0 / 0
12.11.2020, 14:00
| Ответить | Цитировать | Написать  
D7 Сменить иконку работающего приложеничя
    #40017556
Zelius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Zelius
Участник
minva,

а вообще, то что иконка есть в res файле не значит что она попала в exe, проверь его заодно
...
Рейтинг: 0 / 0
12.11.2020, 15:49
| Ответить | Цитировать | Написать  
D7 Сменить иконку работающего приложеничя
    #40017569
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
minva,

Добавляй иконку в отдельный .res-файл и уже его подключай к проекту через {$R имяфайла.res}.
...
Рейтинг: 0 / 0
12.11.2020, 16:07
| Ответить | Цитировать | Написать  
D7 Сменить иконку работающего приложеничя
    #40017766
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
Я всегда пользовался WM_SETICON. Работает.
...
Рейтинг: 0 / 0
13.11.2020, 02:52
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / D7 Сменить иконку работающего приложеничя
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=40017766&tid=2037869]:
 0ms
get settings:
 9ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 68ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 210ms
total:  376ms
созд. / загр.: 376ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]