Сперва необходимо узнать, константы, которые соответствуют
определённым иконкам. Все они определены в 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;
|
|