MessageDlg без Gliph

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

Автор: Steve Samuelson

Как мне получить информационное окошко c 3D-стилем и простыми кнопками (без Glyph), не особо изголяясь в программировании?

Просто добавьте следующую строчку в ваш код диалогового окошка:

MsgDlgGlyphs := false; 

Лично я для дальнейшего использования создал целую коллекцию информационных окошек с моими собственными иконками. Моя основная претензия к стандартному окошку - близкое расположение иконки к левому краю кнопки - заставляет его выглядеть непрофессионально.

В поиске стильного и настраиваемого диалогового окна сообщения без глифов! Решение Стива Самуэльсона довольно простое: просто установите MsgDlgGlyphs в false. Это удалит стандартный глиф (иконку) из диалогового окна сообщения.

Вот модифицированная код:

MessageDlg('Ваше сообщение здесь', mtInformation, [mbOK], 0);
MsgDlgGlyphs := false;

Установив MsgDlgGlyphs в false, вы получите простой диалоговый окно сообщения с текстовым сообщением и кнопкой "ОК", без глифов.

Что касается создания собственного коллекции информационных окон с кастомными иконками, это отличная идея! Вы можете использовать компонент TBitmap для создания своих собственных иконок и затем присвоить их свойству Glyph компонента TMessageDialog.

Однако, я должен сказать, что стандартное расположение глифа иконки вблизи левого края кнопки может быть немного раздражающим. Для исправления этого вы можете попробовать установить свойство GlyphPosition компонента TMessageDialog в mpRight. Это переместит глиф иконку на правую сторону кнопки.

Вот пример:

with MessageDlg do
begin
  Glyph := LoadBitmap('ваша_кастомная_иконка');
  GlyphPosition := mpRight;
end;

Установкой свойства GlyphPosition вы можете настроить расположение своих кастомных иконок, чтобы достичь более профессионального вида дизайна.

Надеюсь, это поможет! Пожалуйста, сообщите мне, если у вас есть какие-либо дальнейшие вопросы.

Автор Steve Samuelson предлагает решение, как получить информационное окошко с 3D-стилем и простыми кнопками без использования Glyph, добавив в код диалогового окна строку MsgDlgGlyphs := false;.

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

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

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