Вопрос и Ответ 13 < Вопросы и Ответы по Delphi < Delphi

Новые книги

Психология влияния. Как научиться убеждать и добиваться успеха

Классика деловой литературы, мировой бестселлер и настольная книга амбициозных политиков, менеджеров, рекламодателей, маркетологов и всех желающих убеждать и добиваться своего. Автор книги, доктор наук и профессор психологии, Роберт Б. Чалдини много лет изучал принципы успешных продаж. На основе своих исследований он написал руководство по мотивации и убеждению, которое многие авторитетные периодические издания признали лучшей книгой о влиянии, когда-либо изданной.

Основы программирования на JavaScript

Курс посвящен изучению языка программирования JavaScript.

JavaScript является языком сценариев (скриптов), который применяют в основном для создания на Web-страницах интерактивных элементов. Его можно использовать для построения меню, проверки правильности заполнения форм, смены изображений или для чего-то еще, что можно сделать на Web-странице.

Вопрос и Ответ 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);
VAR Ico: TIcon;
begin

{Создание объекта типа TIcon}
Ico := TIcon.Create;
try

{IDI_EXCLAMATION}
{Загрузка в объект TIcon иконки-предупреждения}
Ico.Handle := LoadIcon(0, PChar(IDI_EXCLAMATION));
{Вывод иконки в компонент Image1}
Image1.Picture.Graphic := Ico;

finally

{Освобождение ресурсов занятых объектом TIcon}
Ico.Free;

end;

............

...предыдущая страница следующая...
оглавление