Danke das ging ja echt Fix.
Leidr habe ich jetzt das Problem, das wenn ich eine Mail im
HTML empfange, soll sie im TWebBrowser angezeigt werden. nur wenn der benutzer auf einen Link in der Mail Clickt, soll sich der
Standart Browser öffnen.
hier mla mein Code.
Delphi-Quellcode:
procedure THauptForm.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch;
var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant;
var Cancel: WordBool);
begin
Cancel := True;
ShellExecute(Application.Handle, '
open', PChar(
url),
nil,
nil, SW_ShowNormal);
end;
Leider hat der TWebBrowser kein OnClick.