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

Метод 1: использование свойства BorderStyle формы
Пример кода:

procedure TForm1.EnableFullscreenMode;
begin
  Form1.BorderStyle := bsNone;
  Form1.WindowState := wsMaximized;
end;

Метод 2. Использование Windows API
Пример кода:

uses
  Windows;
procedure TForm1.EnableFullscreenMode;
begin
  Form1.BorderStyle := bsNone;
  Form1.WindowState := wsMaximized;
  SetWindowLong(Form1.Handle, GWL_STYLE, GetWindowLong(Form1.Handle, GWL_STYLE) or WS_POPUP);
end;

Метод 3: развертывание формы и скрытие панели задач
Пример кода:

uses
  Windows, ShellAPI;
procedure TForm1.EnableFullscreenMode;
var
  TaskBar: HWND;
begin
  Form1.BorderStyle := bsNone;
  Form1.WindowState := wsMaximized;
  TaskBar := FindWindow('Shell_TrayWnd', nil);
  ShowWindow(TaskBar, SW_HIDE);
end;

Метод 4: использование объекта Screen
Пример кода:

procedure TForm1.EnableFullscreenMode;
begin
  Form1.BorderStyle := bsNone;
  Form1.WindowState := wsMaximized;
  Form1.Left := Screen.DesktopLeft;
  Form1.Top := Screen.DesktopTop;
  Form1.Width := Screen.DesktopWidth;
  Form1.Height := Screen.DesktopHeight;
end;

Метод 5: переключение полноэкранного режима с помощью сочетания клавиш
Пример кода:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Key = VK_RETURN) and (Shift = [ssAlt]) then
  begin
    if Form1.BorderStyle = bsNone then
    begin
      Form1.BorderStyle := bsSizeable;
      Form1.WindowState := wsMaximized;
    end
    else
    begin
      Form1.BorderStyle := bsNone;
      Form1.WindowState := wsMaximized;
    end;
  end;
end;

Реализация полноэкранного режима в Delphi может улучшить взаимодействие с пользователем, обеспечивая среду, не отвлекающую внимание. В этой статье мы рассмотрели различные методы, в том числе изменение свойства BorderStyle формы, использование Windows API, скрытие панели задач, использование объекта Screen и реализацию сочетания клавиш. Используя эти методы, вы можете создавать приложения, которые максимально используют доступное пространство экрана и обеспечивают эффект присутствия для ваших пользователей.