Как сделать единый ярлык для нескольких форм в приложении Firemonkey

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

Использование Firemonkey для создания кросс-платформенных приложений открывает множество возможностей для разработчиков, работающих с Object Pascal и Delphi. Однако, как и в любом новом фреймворке, могут возникать специфические проблемы, такие как появление нескольких ярлыков в меню "Пуск" для одного приложения, когда используется несколько форм.

Проблема

Пользователь Thijs столкнулся с проблемой, что при использовании нескольких форм в приложении Firemonkey, каждая форма создает отдельный ярлык в меню "Пуск" в Windows. В то время как в обычных приложениях VCL все формы объединены под одним ярлыком приложения.

Решение

Для решения этой проблемы необходимо изменить способ создания окон для форм, чтобы они были дочерними по отношению к основной форме приложения. Это достигается путем изменения кода в модуле FMX.Platform.Win.

Шаг 1: Изменение кода создания окна

В функции CreateWindow() модуля FMX.Platform.Win нужно добавить условие для создания дочернего окна, если у формы есть владелец, который является формой. В коде следует использовать обработчик окна владельца для создания нового окна как дочернего.

if (AForm <> nil) and (AForm.Owner <> nil) and (AForm.Owner is TForm) then
begin
  // Создание дочернего окна
  Wnd := CreateWindowEx(ExStyle, WindowClass.lpszClassName, PChar(AForm.Caption), Style,
    Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT),
    HandleToHWND(TForm(AForm.Owner).Handle), 0, hInstance, nil);
end
else
begin
  // Создание окна на рабочем столе
  Wnd := CreateWindowEx(ExStyle, WindowClass.lpszClassName, PChar(AForm.Caption), Style,
    Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT),
    GetDesktopWindow, 0, hInstance, nil);
end;

Шаг 2: Создание модальных форм

При создании модальных форм (или любых дочерних форм) необходимо явно указать владельца, чтобы форма была дочерней по отношению к основной форме приложения.

MyModalForm := TMyModalForm.Create(MyParentForm);
MyModalForm.ShowModal;

Шаг 3: Удаление формы из списка автоматического создания

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

Альтернативный способ

Также было замечено, что если установить свойство Transparency формы в True, и разместить в форме TRectangle, то форма станет видимой, не показывая рамки с заголовком и кнопками. Это может быть использовано как альтернативный способ решения проблемы.

Важные замечания

Изменение файлов FMX может быть рискованным, поэтому рекомендуется сначала создать копию изменяемого файла, а затем применить к нему изменения. Также стоит помнить, что изменение исходных файлов может привести к проблемам при обновлении компонентов Firemonkey.

Заключение

Следуя этим шагам, вы сможете обеспечить, чтобы ваше приложение Firemonkey отображало единый ярлык в меню "Пуск" для всех форм, даже если в приложении используется несколько форм. Это улучшит пользовательский опыт, делая поведение вашего приложения более предсказуемым и согласованным с другими приложениями.

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

Пользователь ищет способ создать единый ярлык для нескольких форм в приложении Firemonkey, чтобы избежать появления нескольких ярлыков в меню 'Пуск' на Windows.

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

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

:: Главная :: Формы ::