もう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 について疑問に思っています。タスクバーに重なる高さ。または、可能ですか?