0

もう1つの新しい質問です。フォームを使用していないプロジェクトでフルスクリーンアプリケーションを動作させることができるかどうか、またどのようにすればよいか疑問に思っています。これはGUI APP_TYPEです。

私は SW_MAXIMIZED を実行しており、非常に単純なフォームベースのアプリで境界線をなしに設定しています。これを cefclient (Delphi Chromium Embedded から) で達成できる方法:

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);

これがフルスクリーン部分を配置する正しいコードかどうかはわかりませんが、SW_MAXIMIZED を試してみましたが、動作しませんでした。また、CW_USEDEFAULT について疑問に思っています。タスクバーに重なる高さ。または、可能ですか?

4

0 に答える 0