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

Previous  Top  Next

    
 

 

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

 

IDI_HAND

IDI_EXCLAMATION

or

IDI_QUESTION

 

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

Code:

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;

 

 

 

 

clip0018

 

©Drkb::02350

Взято из http://forum.sources.ru