Ich habe das jetzt selber gerade mal ausprobiert.
Das ganze ist nicht so leicht ^wie ich das dachte, hier mal ein Beispiel:
Delphi-Quellcode:
{ Ich musste unter Komponente -> ActiveX die Active-X-Komponente MS HTML Object Library mit einbinden, damit ich die Unit einbinden kann... }
uses MSHTML_TLB;
{ ... }
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
var
WebBrowser: IWebBrowser;
begin
WebBrowser:= pDisp
as IWebBrowser;
(WebBrowser.Document
as IHTMLDocument2).DesignMode := '
On';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('
http://www.alexander-franz.de');
end;
Sieht ganz nett aus im Editier-Modus
