Fett/Kursiv/Unterstrichen im WebBrowser

[Hansi]

Hey,

Kann mir jemand einen Tip geben wie ich direkt im WebBrowser den selektierten Text Fett usw machen kann?

MfG
Hansi

[fkerber]

Hi!

Lies mal hier nach, da findest du sicherlich etwas:
http://www.dataweb.de/articles/mshtm...mlediting.html


Ciao Frederic

[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!