15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


Как использовать встроенные в Windows иконки в своём приложении

Сперва необходимо узнать, константы, которые соответствуют определённым иконкам. Все они определены в API unit (windows.pas) в Delphi:

IDI_HAND
IDI_EXCLAMATION
or
IDI_QUESTION

Следующий пример рисует иконку вопроса на панели:

var
  DC: HDC;
  Icon: HICON;
begin
  DC:= GetWindowDC(Panel1.Handle);
  Icon:= LoadIcon(0, IDI_QUESTION);
  DrawIcon(DC, 5,5, Icon);
  ReleaseDC(Panel1.Handle, DC);
end;