Hallo zusammen,
ich habe hier im Forum eine Tolle Procedure gefunden die mir Mails in
HTML im TWebBrowser anzeigt.
Beim testen habe ich gemerkt, das wenn ich auf einen Link klicke, die Seite im TWebBrowser geladen wird.
Wie kann ich das verhindern, oder besser wie kann ich das Realisieren, das die Seite im Standard Browser angezeigt wird.
Hier mal die Procedure die ich gefunden habe.
Delphi-Quellcode:
procedure WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode:
string);
//------------------------------------------
// HTML Seiten anzeigen
//------------------------------------------
var
sl: TStringList;
ms: TMemoryStream;
begin
WebBrowser.Navigate('
about:blank');
while WebBrowser.ReadyState < READYSTATE_INTERACTIVE
do
Application.ProcessMessages;
if Assigned(WebBrowser.Document)
then
begin
sl := TStringList.Create;
try
ms := TMemoryStream.Create;
try
sl.Text := HTMLCode;
sl.SaveToStream(ms);
ms.Seek(0, 0);
(WebBrowser.Document
as
IPersistStreamInit).Load(TStreamAdapter.Create(ms));
finally
ms.Free;
end;
finally
sl.Free;
end;
end;
end;