Activeform og redirect af browser

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.....');
end;

Smart nok, men det henviser jo kun Webbrowser1 til en anden side. Ikke den side jeg har sat activeform'en på.

nåe du kan da bare sige det er activex

Du skal bruge WinINet API her er et eksempel
Dette er dit ActiveEvent i din AvtiveForm.

procedure TyperLinkTest.ActivateEvent(Sender: TObject);
var
  site: IOleClientSite;
  browser: IWebBrowserApp;
  sp: IServiceProvider;
  hr: HResult;
begin
  if FEvents <> nil then FEvents.OnActivate;

  if (ComObject as IOleObject).GetClientSite(site) = S_OK then
  begin
    if site <> nil then
    begin
      hr := site.QueryInterface( IServiceProvider, sp );
      hr := sp.QueryService(  IWebBrowserApp, IWebBrowserApp, browser );
      Label1.Caption := browser.LocationURL;
    end;
  end;
end;

Og her er koden der udfører redirect'en :
procedure THyperLinkTest.GotoButtonClick(Sender: TObject);
begin
HLinkNavigateString( ComObject, PWideChar(WideString(URL.Text)) );
end;

Håber du kan bruge det.

Kayb >>
Jeg er overbevist om at det er lige præcis det der skal til, men hvad mangler jeg for at kende den type der hedder IWebBrowserApp ?
Den bliver kaldt undeclared identifier. Er det en enkelt tilføjelse til min uses linje?

stenner>>
Det må du undskylde, jeg glemte lige at tilføje at du skal importere MicroSofts Internet Control som type library og så tilføje URLMon, ShDocVw_TLB i din USES linie under implementation.

Kanon. Nu virker det. Der var lige noget bøvl med din anden hr linje:
  hr := sp.QueryService(  IWebBrowserApp, IWebBrowserApp, browser );
skulle være:
  hr := sp.QueryService( IWebBrowserApp, IID_IWebBrowserApp, browser);
Men nu virker det. Min svendeopgave er reddet, og du får dine veelfortjente point.

Det var da godt. :-)