wm-help.net -> Электронная библиотека -> Delphi -> Вопросы и Ответы по Delphi -> Вопрос и Ответ 13 -> Версия для печати

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

      end;

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

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

Rambler's Top100