Форма во весь экран

Delphi , Программа и Интерфейс , Размеры и Положение

{ 
  Make your application like a game. Full Screen. 
  Disable all of the system keys. 
} 

procedure TForm1.FormCreate(Sender: TObject); 
var 
  HTaskbar: HWND; 
  OldVal: LongInt; 
begin 
  try 
    // Find handle of TASKBAR 
    HTaskBar := FindWindow('Shell_TrayWnd', nil); 
    // Turn SYSTEM KEYS off, Only Win 95/98/ME 
    SystemParametersInfo(97, Word(True), @OldVal, 0); 
    // Disable the taskbar 
    EnableWindow(HTaskBar, False); 
    // Hide the taskbar 
    ShowWindow(HTaskbar, SW_HIDE); 
  finally 
    with Form1 do  
    begin 
      BorderStyle := bsNone; 
      FormStyle   := fsStayOnTop; 
      Left        := 0; 
      Top         := 0; 
      Height      := Screen.Height; 
      Width       := Screen.Width; 
    end; 
  end 
end; 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
var 
  HTaskbar: HWND; 
  OldVal: LongInt; 
begin 
  //Find handle of TASKBAR 
  HTaskBar := FindWindow('Shell_TrayWnd', nil); 
  //Turn SYSTEM KEYS Back ON, Only Win 95/98/ME 
  SystemParametersInfo(97, Word(False), @OldVal, 0); 
  //Enable the taskbar 
  EnableWindow(HTaskBar, True); 
  //Show the taskbar 
  ShowWindow(HTaskbar, SW_SHOW); 
end;

Приведенный код предназначен для создания приложения на Windows в полноэкранном режиме и отключения системных клавиш на Windows 95/98/ME. Процедура FormCreate отвечает за настройку формы в полноэкранном режиме, отключая панель задач и скрывая ее, а также отключая системные клавиши. Процедура FormClose используется для восстановления оригинального состояния при закрытии формы.

Разбивка каждого раздела:

FormCreate

1. Найдет handle панели задачи с помощью FindWindow.
2. Отключит панель задачи, установив ее стиль окна в скрытый (EnableWindow и ShowWindow).
3. Установит системные параметры для отключения системных клавиш на Windows 95/98/ME.
4. Настроит форму:
   • Установит стиль рамки в none (BorderStyle = bsNone).
   • Установит позицию формы, чтобы она оставалась над другими окнами (FormStyle = fsStayOnTop).
   • Установит позицию и размер формы, соответствующие разрешению экрана.

FormClose

1. Найдет handle панели задачи снова с помощью FindWindow.
2. Восстановит системные параметры для включения системных клавиш на Windows 95/98/ME.
3. Включит панель задачи, установив ее стиль окна обратно в нормальный (EnableWindow).
4. Показывает панель задачи снова (ShowWindow).

Обратите внимание:

• Код работает только на Windows 95/98/ME, поскольку он зависит от конкретных системных параметров и API-запросов, которые не доступны в новых версиях Windows.
• Функция FindWindow используется для поиска handle панели задачи. Эта функция может не работать, если панель задачи не видна или была настроена пользователем.
• Код не предоставляет способ программного выхода из полноэкранного режима. Когда форма будет закрыта, системные клавиши снова будут включены.

Альтернативные решения:

1. Используйте ShowModal вместо создания не-модальной формы. Это автоматически отключит системные клавиши, пока форма будет отображаться.
2. Используйте третьестороннюю библиотеку или фреймворк, который предоставляет встроенную поддержку полноэкранного режима и настройки окон.
3. Реализуйте custom window handling с помощью API-запросов Windows, таких как SetWindowPos и ShowWindow. Это потребует больше кода и знаний о программировании Windows.

В целом, предоставленный код - это старая решение для создания полноэкранного приложения на более старых версиях Windows. Он может не быть подходящим для современных приложений или новых версий Windows.

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

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

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

:: Главная :: Размеры и Положение ::