Delphi xe3 如何在delphi应用程序类型GUI上设置全屏

另一个新问题是，我想知道是否以及如何让一个全屏应用程序在一个不使用任何表单的项目上工作，它是一个GUI应用程序类型

我正在一个基于表单的应用程序上进行SW_最大化和border设置为none，这非常简单， 我可以通过任何方式在CEFAClient上实现这一点（来自Delphi Chromium Embedded）：

---

我不知道这是否是全屏部分应该使用的正确代码，但是，我尝试了SW_最大化，不工作，我想知道CW_USEDEFAULT，如何获得工作区矩形，以便设置宽度和高度以重叠任务栏。或者，是否可能？

将

WS\u VISIBLE

（

WS\u重叠或WS\u VISIBLE

）设置为“窗口样式”，将“初始x位置”设置为

CW\u USEDEFAULT

，将“初始y位置”设置为

SW\u最大化

。并删除

ShowWindow

调用。@SertacAkyuz到目前为止工作正常，但是你知道如何使顶部边框消失吗？你是说标题？如果你不想要它，把它做成一个弹出窗口。并注明最大化标志。即窗口样式=

WS\u弹出窗口或WS\u可见或WS\u最大化

。在这种情况下，你不必为y使用

SW_MAXIMIZE

。@SertacAkyuz如果我把它改为WS_VISIBLE，并为y使用CW_usefault而不是SW_MAXIMIZE，当我运行应用程序时，它什么也不显示（它在任务栏中，但它就像一个透明层，上面没有任何东西，阻止我点击桌面上的任何东西）。因为我不久前在尝试完成这项任务时遇到了这个问题，我不知道我做错了什么。它是全屏的，但“内容”根本不可见，完全透明。例如，您是否尝试提供画笔句柄：

wndClass.hbrBackground:=COLOR\u BTNFACE+1。
var
{$IFDEF CEF_MULTI_THREADED_MESSAGE_LOOP}
  Msg      : TMsg;
{$ENDIF}
  wndClass : TWndClass;
begin
  //CefCache := 'cache';
  //navigateto := 'client://test/';
  //navigateto := 'local://c:\';


  // multi process
  CefSingleProcess := False;
  if not CefLoadLibDefault then Exit;

  try
    wndClass.style         := CS_HREDRAW or CS_VREDRAW;
    wndClass.lpfnWndProc   := @CefWndProc;
    wndClass.cbClsExtra    := 0;
    wndClass.cbWndExtra    := 0;
    wndClass.hInstance     := hInstance;
    wndClass.hIcon         := LoadIcon(0, IDI_APPLICATION);
    wndClass.hCursor       := LoadCursor(0, IDC_ARROW);
    wndClass.hbrBackground := 0;
    wndClass.lpszMenuName  := nil;
    wndClass.lpszClassName := 'tribul';

    RegisterClass(wndClass);

    Window := CreateWindow(
      'tribul',             // window class name
      'Tribul.net - Gods of War',     // window caption
      WS_OVERLAPPED,    // window style
      Integer(0), // initial x position
      Integer(0), // initial y position
      Integer(CW_USEDEFAULT), // initial x size
      Integer(CW_USEDEFAULT), // initial y size
      0,                      // parent window handle
      0,                      // window menu handle
      hInstance,              // program instance handle
      nil);                   // creation parameters

    ShowWindow(Window, SW_SHOW);
    UpdateWindow(Window);