|
Разделы сайта
|
Главная
Покупаем абсолютно любые сайты, не зависимо от посещаемости, тематики и доменного имени.wm-help.net -> Электронная библиотека -> Delphi -> Вопросы и Ответы по Delphi -> Вопрос и Ответ 13
Вопрос и Ответ 13
Вопросы и Ответы
13. Где находятся системные иконки Windows используемые в диалоговых окнах типа MessageDlg?
Windows содержит ряд предопределенных иконок, использующихся в диалоговых окнах MessageBox (или MessageDlg для Delphi). Вы можете пользоваться предопределенными иконками в своих окнах, загружая их с помощью функции:
function LoadIcon(Instance: THandle; IconName: PChar): HIcon;
Если параметр Instance сделать равным нулю, то второй параметр будет указывать на имя предопределенной иконки:
Иконка |
Назначение |
| IDI_APPLICATION | Используется по умолчанию. |
| IDI_EXCLAMATION | Используется при предупреждениях. |
| IDI_HAND | Используется при ошибках. |
| IDI_ASTERISK | Используется в информационных сообщениях. |
| IDI_QUESTION | Используется при задании вопросов. |
Иконка-предупреждение выводится в компонент Image1: TImage, который уже размещен на форме.
............
procedure
TForm1.FormCreate(Sender: TObject); {Создание
объекта типа TIcon} {IDI_EXCLAMATION}
finally
{Освобождение
ресурсов занятых объектом TIcon} end;
end; ............
VAR Ico: TIcon;
begin
Ico := TIcon.Create;
try
{Загрузка в объект TIcon
иконки-предупреждения}
Ico.Handle := LoadIcon(0, PChar(IDI_EXCLAMATION));
{Вывод иконки в компонент Image1}
Image1.Picture.Graphic := Ico;
Ico.Free;
...предыдущая страница следующая...
оглавление