Delphi TEmbeddedWB和背景色_Delphi_Webbrowser Control_Delphi Xe

Delphi TEmbeddedWB和背景色

delphi

Delphi TEmbeddedWB和背景色,delphi,webbrowser-control,delphi-xe,Delphi,Webbrowser Control,Delphi Xe,如何在不显示任何页面的情况下更改组件的默认背景颜色（clWhite）这可以通过在创建表单时加载默认页面来完成（快速方式）： TEmbeddedWB特定： EmbeddedWB1.LoadFromString(Format('<body style="background-color:%s; scrollbar-base-color:%s;"/>', [ColorToHTML(clGray), ColorToHTML(clBlack)])); 请注意，将HostCSS属性与

如何在不显示任何页面的情况下更改组件的默认背景颜色（clWhite）

这可以通过在创建表单时加载默认页面来完成（快速方式）：

TEmbeddedWB

特定：

EmbeddedWB1.LoadFromString(Format('<body style="background-color:%s; scrollbar-base-color:%s;"/>',
    [ColorToHTML(clGray), ColorToHTML(clBlack)]));

请注意，将

HostCSS

属性与CSS样式模板一起使用，也会将此模板用于没有CSS样式的页面。

通过将属性从。以下代码将导航到空页面并将其背景色更改为红色。请注意，每次使用此解决方案导航到空页面后，需要设置的背景色

uses
  GraphUtil, MSHTML;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EmbeddedWB1.AssignEmptyDocument(True);
  (EmbeddedWB1.Document as IHTMLDocument2).bgColor := ColorToWebColorStr(clRed);
end;

EmbeddedWB1.LoadFromString(Format('<body style="background-color:%s; scrollbar-base-color:%s;"/>',
    [ColorToHTML(clGray), ColorToHTML(clBlack)]));

procedure TForm1.Button1Click(Sender: TObject);
const
  // Template for default CSS style
  cCSSTplt = 'body {background-color: %0:s}';
var
  FmtCSS: string;  // Stores default CSS
begin
  FmtCSS := Format(cCSSTplt, [ColorToHTML(clYellow)]);
  EmbeddedWB1.HostCSS := FmtCSS;
  EmbeddedWB1.AssignEmptyDocument;
end;

uses
  GraphUtil, MSHTML;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EmbeddedWB1.AssignEmptyDocument(True);
  (EmbeddedWB1.Document as IHTMLDocument2).bgColor := ColorToWebColorStr(clRed);
end;