delphi – 如何使鼠标悬停在最小化,最大化和关闭按钮的行为？

展示该问题的应用程序不是高DPI感知。悬停问题的解决方案是通过使用1，2或3之间的解决方案，使他们知道或打开相关的兼容性模式。

注意：当高DPI意识被打开时，是否其余的应用程序会正常运行是另一个问题，并且将因应用而异。

>在兼容模式下，检查“在高DPI设置上禁用显示缩放”
>调用SetProcessDPIAware作为第一次调用.dpr文件 – 如Ian Boyd所指出的，调用此函数可以进行竞争条件，首选方式是使用清单。 SetProcessDPIAware
>使用true或true / PM设置的自定义清单(“启用运行时主题”中包含的默认Delphi清单不高DPI)

当前版本的Delphi VCL和FMX框架缺乏对每个监视器DPI感知的支持，因此只有当您自己处理每个监视器DPI时，才使用true / PM清单。报告为QP为VCL and FireMonkey lack Per-Monitor DPI support for Windows 8.1 (and Windows 10)

<asmv3:application>
    <asmv3:windowsSettings xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">
      <dpiAware>true</dpiAware>
    </asmv3:windowsSettings>
  </asmv3:application>

要么

<asmv3:application>
    <asmv3:windowsSettings xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">
      <dpiAware>true/PM</dpiAware>
    </asmv3:windowsSettings>
  </asmv3:application>

更新：

Delphi VCL是错误行为的来源，具体问题是TForm类或其祖先的某个地方。当使用直接的Windows API时，窗口的行为正常。

Windows API代码行为正常：

MessageBox(0,'Correct','Caption',MB_OK); 

  ShowMessage('Correct'); // if themes are enabled -> Windows Task dialog is used

完整的Delphi示例应用程序，创建主窗口而不使用VCL – 行为正常

program win;

{$R *.res}

uses
  Windows,Messages,SysUtils;

var
  Msg: TMSG;
  LWndClass: TWndClass;
  hMainHandle: HWND;

function WindowProc(HWND,Msg: Longint; wParam: wParam; lParam: lParam): Longint; stdcall;
begin
  if Msg = WM_DESTROY then PostQuitMessage(0);
  Result := DefWindowProc(HWND,Msg,wParam,lParam);
end;

begin
  LWndClass.hInstance := hInstance;
  with LWndClass do
    begin
      lpszClassName := 'WinApiWnd';
      Style := CS_PARENTDC or CS_BYTEALIGNCLIENT;
      hIcon := LoadIcon(hInstance,'MAINICON');
      lpfnWndProc := @WindowProc;
      hbrBackground := COLOR_BTNFACE + 1;
      hCursor := LoadCursor(0,IDC_ARROW);
    end;

  RegisterClass(LWndClass);
  hMainHandle := CreateWindow(LWndClass.lpszClassName,'Window Title',WS_CAPTION or WS_MINIMIZEBOX or WS_SYSMENU or WS_VISIBLE,360,200,hInstance,nil);

  while GetMessage(Msg,0) do
    begin
      TranslateMessage(Msg);
      DispatchMessage(Msg);
    end;
end.

行为失调的VCL形式：

var
  f: TForm;

  f := CreateMessageDialog('Broken',mtWarning,mbOKCancel,mbOk);
  f.ShowModal;
  f.Free;

  f := TForm.Create(nil);
  f.ShowModal;
  f.Free;