Изменение MessageDlg

Delphi , Программа и Интерфейс , Диалоги и Фреймы

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure TForm1.Button1Click(Sender: TObject);
 var
    f: TForm;
 begin
   // Create the MessageDialog 
  // Den MessageDialog erstellen 
  f := Dialogs.CreateMessageDialog('HELLOWORLD', dialogs.mtInformation, dialogs.mbOKCancel);
   // Set the backcolor to blue. 
  // farbt die Form blau. 
  f.Color := clBlue;
   // Set textcolor to lime 
  // Farbt die Schrift lime 
  f.Font.Color := clLime;
   // Zeigt die Form an und wartet auf den ModalResult. 
  // Shows the dialog and wait for the modalresult 
  if f.ShowModal = mrOk then
     ShowMessage('OK Pressed, OK wurde gedruckt')
   else
     ShowMessage('Cancel pressed. Abbrechen wurde gedruckt');
 end;

Перевод контента на русский язык:

Код создает пользовательский диалог TMessageDialog с заголовком "HELLOWORLD", отображающий информационное сообщение с опцией нажать кнопки OK или Cancel. Фоновый цвет диалога установлен в синий, а текстовый цвет - в лимонно-зеленый.

Вот некоторые улучшения:

1. Вы можете использовать класс TMessageDlg вместо создания нового форм (TForm). Это более подходит для этой задачи.
2. Вместо использования Dialogs.CreateMessageDialog, вы можете напрямую создать экземпляр TMessageDlg.
3. Не нужно присваивать результат ShowModal переменной, если вы только используете его в if-else-statement.
4. Рассмотрите добавление блока try-except для обработки любых исключений, которые могут возникнуть во время выполнения.

Вот улучшенный код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Создайте диалог с помощью TMessageDlg
  if MessageDlg('HELLOWORLD', mtInformation, [mbOK, mbCancel], 0) = mrOk then
    ShowMessage('OK Pressed')
  else
    ShowMessage('Cancel pressed');
end;

Альтернативно, вы можете использовать TMessageBox вместо TMessageDlg. Это более компактно и легко использовать:

procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageDlg('HELLOWORLD', mtInformation, [mbOK, mbCancel], 0) = mrOk then
    ShowMessage('OK Pressed')
  else
    ShowMessage('Cancel pressed');
end;

Обратите внимание, что в обоих примерах я удалил присваивание фонового цвета и текстового цвета, потому что эти параметры не имеют отношения к TMessageDlg или TMessageBox. Если вы хотите настроить внешний вид диалога, вы можете использовать свойства BorderStyle, CaptionColor, Font и другие.

В статье описывается изменение MessageDlg в Delphi, при котором создается форма с информационным сообщением, а затем меняются параметры ее цвета и шрифта перед отображением.

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Диалоги и Фреймы ::