Получить картинки из MessageDlg

Delphi , Графика и Игры , Изображения

procedure TForm1.Button1Click(Sender: TObject);
var
  Ic: TIcon;
begin
  Ic := TIcon.Create;
  Ic.Handle := LoadIcon(0, IDI_APPLICATION);
  Form1.Canvas.Draw(1, 1, Ic);
  Ic.Handle := LoadIcon(0, IDI_ASTERISK);
  Form1.Canvas.Draw(32, 1, Ic);
  Ic.Handle := LoadIcon(0, IDI_EXCLAMATION);
  Form1.Canvas.Draw(64, 1, Ic);
  Ic.Handle := LoadIcon(0, IDI_QUESTION);
  Form1.Canvas.Draw(1, 32, Ic);
  Ic.Handle := LoadIcon(0, IDI_HAND);
  Form1.Canvas.Draw(32, 32, Ic);
  Ic.Handle := LoadIcon(0, IDI_WINLOGO);
  Form1.Canvas.Draw(64, 32, Ic);
  Ic.Destroy;
end;

Here's a translation of the provided text into Russian:

Код - часть приложения Delphi, которое обрабатывает событие клика кнопки на форме. Когда эта кнопка нажата, создается экземпляр TIcon, загружаются несколько ресурсов иконок в него, а затем рисуются эти иконки на канвасе формы.

Разбивка каждого из строк:

1. Ic := TIcon.Create; - Создает новый экземпляр TIcon.
2. Ic.Handle := LoadIcon(0, IDI_APPLICATION); - Загружает ресурс иконки с идентификатором IDI_APPLICATION в объект Ic.
3. Form1.Canvas.Draw(1, 1, Ic); - Рисует загруженную иконку на координатах (1, 1) на канвасе формы.

Части 4-10 повторяют это действие с другими идентификаторами (IDI_ASTERISK, IDI_EXCLAMATION, IDI_QUESTION, IDI_HAND, IDI_WINLOGO) и координатами.

1. Ic.Destroy; - Освобождает системные ресурсы, уничтожая объект TIcon.

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageDlg('Ваш текст здесь', mtInformation, [mbOK], 0);
end;

В этом коде замените 'Ваш текст здесь' на ваш текст и mtInformation на тип диалогового окна, который вы хотите отобразить. Параметр [mbOK] указывает, что в диалоговом окне должна быть только кнопка "ОК".

Если вам все еще нужно загружать иконки в диалоговое окно, можно использовать следующий код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageDlg('Ваш текст здесь', mtInformation, [mbOK], 0,
    procedure
    begin
      Icon := LoadIcon(0, IDI_APPLICATION);
    end);
end;

В этом коде функция LoadIcon используется для загрузки иконки в диалоговое окно.

Процедура TForm1.Button1Click(Sender: TObject) выводит на форму TForm1 иконки из MessageDlg, используя LoadIcon и Draw методы.

Комментарии и вопросы

:: Главная :: Изображения ::