Сперва необходимо узнать, константы, которые соответствуют определённым
иконкам. Все они определены в API unit (windows.pas) в Delphi:
- IDI_HAND
- IDI_EXCLAMATION
- 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;
|
|