3

我用TChromium. 我指定AWebPageAsString了一个带有灰色背景颜色的静态 HTML 页面。

FBrowser := TChromium.Create(pnlHolder);
FBrowser.Visible := false;
FBrowser.Parent := TWinControl(pnlHolder);
FBrowser.Align := alClient;
FBrowser.OnBeforeBrowse := BrowserBeforeBrowse;
FBrowser.HandleNeeded;
FBrowser.FontOptions.RemoteFontsDisabled := true;
FBrowser.Browser.MainFrame.LoadString(AWebPageAsString, 'navigate:webpage');

当我启动应用程序时,它首先显示为白色背景和空白内容,然后我的页面显示为灰色背景和实际内容。

有没有办法避免这种情况?也许有默认的背景颜色?

4

1 回答 1

2

我知道,这是一个很晚的答案,但这至少是一个有趣的话题。要更改默认浏览器的背景颜色,您可以使用自定义样式表。听起来不错,但它有一个很大的弱点——当您导航到一个没有定义样式表的页面时,您的自定义样式表将被应用。但是,如果您知道您将仅以某种样式浏览您的页面,那么它甚至可能是一个优势,因为您可以保留在该默认自定义样式中定义的样式定义。

因此,要创建一个黑色背景的浏览器(使用下面描述的样式),您可以使用以下代码:

procedure TForm1.FormCreate(Sender: TObject);
const
  CSSHeader = 'data:text/css;charset=utf-8;base64,';
  CSSBase64 = 'Ym9keSB7YmFja2dyb3VuZC1jb2xvcjpibGFjazt9';
begin
  Chromium1.UserStyleSheetLocation := CSSHeader + CSSBase64;
  Chromium1.Options.UserStyleSheetEnabled := True;
  Chromium1.ReCreateBrowser('about:blank');
end;

上面代码中使用的CSSBase64常量是以下样式表encoded to Base64

body {background-color:black;}
于 2012-08-22T09:31:49.660 回答