Du konntest das mit einer Boolean Variable machen.
Anstatt WebBrowser.Navigate('about
:blank'); rufst du dann WebbrowserNavigate(Webbrowser, 'about
:blank') auf.
Delphi-Quellcode:
var
FIsStartPage : Boolean;
procedure WebbrowserNavigate(Webbrowser: TWebbrowser,
const URL:
string);
begin
FIsStartPage := True;
Webbrowser.Navigate(
URL);
FIsStartPage := False;
end;
procedure THauptForm.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch;
var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant;
var Cancel: WordBool);
begin
if (
not FIsStartPage)
then
begin
Cancel := True;
ShellExecute(Application.Handle, '
open', PChar(
url),
nil,
nil, SW_ShowNormal);
end;
end;
PS: Standard schreibt man mit d
