Nein, den hat er sich von anderen Forenusern schreiben lassen oder bei Google gefunden und - ohne ihn zu verstehen - zusammen ge-copy&pasted... *seufz*
Edit: Nachtrag:
Zitat von
Delphiturbo:
Delphi-Quellcode:
procedure LoadHTMLToWebbrowser(AWebBrowser: TWebBrowser; AHTMLCode: TStrings);
var
myDocument:OleVariant;
begin
//falls nötig, leere Seite anzeigen
if AWebBrowser.Document =
nil then AWebBrowser.Navigate('
about:blank');
//HTML-Code in TWebBrowser.Document schreiben
myDocument:=AWebBrowser.Document;
myDocument.Clear;
myDocument.
Write(AHTMLCode.Text);
myDocument.Close;
end;
kommt, wie man unschwer erkennen kann, 1:1 von hier:
http://www.devblog.de/index.php/archives/2005/09/12/44/
Edit Nachtrag 2:
Kann auch von hier kommen - da sind zumindest schon die Kommentare drin:
http://www.delphipraxis.net/internal...t.php?t=118423