1、全屏时 TChromeTabsGlassForm 窗体仍然会为 ChromeTabs 保留一个位置,因此,需要修改如下代码(在 ChromeTabsGlassForm.pas):
procedure TChromeTabsGlassForm.AdjustClientRect(var Rect: TRect); begin inherited; if ShowTabsInTitleBar then Inc(Rect.Top, GlassFrame.Top); end;
为如下代码
procedure TChromeTabsGlassForm.AdjustClientRect(var Rect: TRect); begin inherited; if ShowTabsInTitleBar and ChromeTabs.Visible then Inc(Rect.Top, GlassFrame.Top); end;
时间: 2024-12-11 00:05:31