Fett/Kursiv/Unterstrichen im WebBrowser

[Hansi]

So sieht die Lösung aus:

Delphi-Quellcode:

...
private
    { Private-Deklarationen }
  function GetHTMLDocument2Ifc: IHTMLDocument2;
  protected
    property HTMLDocument2Ifc: IHTMLDocument2 read GetHTMLDocument2Ifc;
  public
    { Public-Deklarationen }
  end;

...

function TForm1.GetHTMLDocument2Ifc: IHTMLDocument2;
begin
  Result := WebBrowser1.Document as IHTMLDocument2;
end;

...

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
  HTMLDocument2Ifc.execCommand('Bold', False, 0);
end;

Vielen Dank Frederic!