Создание окна FMX в стиле ShowMessage в Delphi: пошаговое руководство

Delphi , ОС и Железо , Windows

Создание окна FMX в стиле ShowMessage в Delphi

Приветствую, разработчики на Delphi! В этой статье мы рассмотрим, как создать окно FMX, которое будет выглядеть как окно ShowMessage. Это может быть полезно, если вам нужно создать всплывающее сообщение, которое будет иметь стиль и функциональность стандартного диалогового окна Delphi, но при этом вы хотите иметь больший контроль над его внешним видом и поведением.

Обзор проблемы

Пользователь столкнулся с задачей создания окна FMX, которое внешне напоминало бы стандартное диалоговое окно ShowMessage. В частности, он хотел убрать иконку и отключить неиспользуемые элементы меню, чтобы окно выглядело более минималистично.

Стандартное окно FMX и ShowMessage

Стандартное окно FMX, созданное с использованием свойств BorderIcons и BorderStyle, имеет другую структуру и элементы управления по сравнению с диалоговым окном ShowMessage. В то время как ShowMessage использует системные функции Win32 API, такие как MessageBoxIndirect(), для отображения диалогового окна, FMX Form обёртывает стандартный Win32 HWND.

Подтвержденный ответ

Для изменения стандартного системного меню FMX Form необходимо опуститься на уровень Win32 API и манипулировать системным меню напрямую. Это достигается с помощью получения HWND формы и использования функций Win32 API, таких как GetMenu и DeleteMenu, для удаления ненужных элементов меню.

Для удаления иконки формы используйте функцию Win32 API SendMessage для отправки сообщения WM_SETICON с параметром lParam, установленным в 0. Или же используйте SetWindowLongPtr для включения стиля окна WS_EX_DLGMODALFRAME.

Переопределите виртуальный метод CreateHandle формы для выполнения этих операций. Вот пример кода, который демонстрирует, как это можно сделать:

type
  TForm1 = class(TForm)
  protected
    procedure CreateHandle; override;
  end;

implementation

procedure TForm1.CreateHandle;
var
  Wnd: HWND;
  Menu: HMENU;
  ExStyle: LONG_PTR;
begin
  inherited;
  Wnd := FormToHWND(Self);
  Menu := GetMenu(Wnd);
  // Удаление элементов меню
  DeleteMenu(Menu, SC_TASKLIST, MF_BYCOMMAND);
  DeleteMenu(Menu, 7, MF_BYPOSITION);
  DeleteMenu(Menu, 5, MF_BYPOSITION);
  DeleteMenu(Menu, SC_MAXIMIZE, MF_BYCOMMAND);
  DeleteMenu(Menu, SC_MINIMIZE, MF_BYCOMMAND);
  DeleteMenu(Menu, SC_SIZE, MF_BYCOMMAND);
  DeleteMenu(Menu, SC_RESTORE, MF_BYCOMMAND);
  // Удаление иконки
  SendMessage(Wnd, WM_SETICON, ICON_SMALL, 0);
  SendMessage(Wnd, WM_SETICON, ICON_BIG, 0);
  // Включение стиля окна
  ExStyle := GetWindowLongPtr(Wnd, GWL_EXSTYLE);
  SetWindowLong(Wnd, GWL_EXSTYLE, ExStyle or WS_EX_DLGMODALFRAME);
  SetWindowPos(Wnd, 0, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOZORDER or SWP_FRAMECHANGED);
end;

Альтернативный ответ и комментарии

Пользователь также интересовался возможностью выполнения подобных изменений на уровне Delphi API, однако это невозможно без использования Win32 API. В FMX, как и в VCL, некоторые операции по умолчанию выполняются встроенными функциями, но для изменения системного меню необходимо использовать низкоуровневые функции Win32.

Рекомендуемое место для кода

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

Заключение

Создание окна FMX в стиле ShowMessage требует понимания работы с Win32 API и возможностей FMX Forms. С помощью переопределения метода CreateHandle и использования функций Win32 API, вы можете настроить внешний вид и функциональность окна в соответствии с вашими требованиями.

Надеемся, что эта статья помогла вам лучше понять процесс создания кастомизированных окон в FMX и дала вам инструменты для реализации подобных задач в ваших проектах на Delphi.

Создано по материалам из источника по ссылке.

Пользователь хочет создать окно в FMX, стилизованное под стандартное диалоговое окно `ShowMessage` в Delphi, с возможностью удаления иконки и элементов меню.

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

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

:: Главная :: Windows ::