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

Новые книги

Время энтузиастов-одиночек, создававших компьютерные вирусы на заре информационной эпохи, давно прошло: в наши дни разработкой и распространением вредоносных программ занимаются хорошо организованные преступные группировки, имеющие жесткую иерархию и напоминающие по своей структуре настоящие мафиозные кланы. Объем этого подпольного рынка составляет сотни миллионов долларов.

Книга рассказывает об истории возникновения и развития технологий компьютерных вирусов, их разновидностях, внутренней архитектуре, способах распространения и принципах действия. Книга позволит читателям познакомиться с таинственным теневым миром киберпреступности, представители которого ежедневно осуществляют атаки на компьютеры простых пользователей по всему миру.

Сборник тестов: 1500 вопросов и ответов на знание Android

Книга содержит 30 тестов по 50 вопросов с ответами на знание Android. Книга предназначена для подготовки к экзаменам и собеседованиям.

Вопрос и Ответ 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;

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

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