标签:
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;
标签:
原文地址:http://www.cnblogs.com/newrainsoftware/p/5535516.html