Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
KANSoftWare

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

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




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.


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


реклама


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-12-22 20:14:06
2025-06-16 09:59:41/0.0061278343200684/0