WebBrowser-Komponente HTML-Code Zeilenweise hinzufügen

[toms]

Zitat:

Das heißt ich will Zeilen im WebBrowser hinzufügen. Wie geht das?

Hi,

Das geht so:

Delphi-Quellcode:

uses
 MSHTML;

procedure TForm1.Button1Click(Sender: TObject);
var
  Range: IHTMLTxtRange;
begin
  Range := ((WebBrowser1.Document as IHTMLDocument2).body as IHTMLBodyElement).createTextRange ;
  Range.collapse(false);
  Range.pasteHTML('
[b]Hallo[/b]');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Webbrowser1.Navigate('www.google.ch');
end;