Переключение Режима Полноэкранного Отображения в Веб-Сайте на TMS WEB Core

Delphi , ОС и Железо , Монитор и Экран

При разработке веб-сайтов с использованием TMS WEB Core в среде Delphi, разработчики часто сталкиваются с необходимостью добавления функционала, который позволяет пользователю переключаться между обычным режимом просмотра и полноэкранным. Такой функционал может быть реализован с помощью кнопки, которая активирует или деактивирует полноэкранный режим при нажатии. В FireMonkey для этого используется свойство FullScreen формы, что является довольно простым решением в коде приложения на FMX.

Однако, в случае использования TWebForm в TMS WEB Core, такого свойства нет, что делает задачу переключения в полноэкранный режим более сложной. Тем не менее, решение существует.

Решение проблемы

Для того чтобы переключить веб-сайт, созданный с использованием TMS WEB Core, в полноэкранный режим и обратно, можно использовать следующий подход:

procedure ToggleFullScreen;
begin
  asm
    if (document.fullscreenElement || document.mozFullScreenElement || document.webkitFullscreenElement) then
    begin
      if (document.exitFullscreen) then
        document.exitFullscreen();
      else if (document.mozCancelFullScreen) then
        document.mozCancelFullScreen();
      else if (document.webkitCancelFullScreen) then
        document.webkitCancelFullScreen();
    end
    else
    begin
      if (document.documentElement.requestFullscreen) then
        document.documentElement.requestFullscreen();
      else if (document.documentElement.mozRequestFullScreen) then
        document.documentElement.mozRequestFullScreen();
      else if (document.documentElement.webkitRequestFullscreen) then
        document.documentElement.webkitRequestFullscreen(Element.ALLOW_KEYBOARD_INPUT);
    end;
  end;
end;

Данный код представляет собой функцию на Object Pascal, которая обращается к JavaScript для выполнения необходимых действий. Функция проверяет, находится ли документ в полноэкранном режиме, и если да, выходит из него. Если нет, то пытается переключиться в полноэкранный режим.

Применение функции

Чтобы использовать эту функцию, достаточно вызвать ToggleFullScreen в обработчике события нажатия на кнопку:

procedure TForm2.WebButton1Click(Sender: TObject);
begin
  ToggleFullScreen;
end;

Этот код следует разместить в обработчике события OnClick для кнопки, которая должна вызывать переключение режимов.

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

• Метод cancelFullScreen устарел, и для современных браузеров рекомендуется использовать exitFullScreen.
• Переключение в полноэкранный режим может быть отклонено браузером, если пользователь не взаимодействовал с сайтом (например, не вводил текст в поле ввода) перед попыткой переключения.

Этот подход должен работать во всех современных браузерах, включая Microsoft Edge, Google Chrome и Mozilla Firefox.

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

В контексте рассмотрена проблема переключения веб-сайта, созданного на TMS WEB Core, в полноэкранный режим и обратно, с использованием JavaScript кода на Object Pascal для обработки этого переключения.

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

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

:: Главная :: Монитор и Экран ::