url-adresse vises

Prøv at sætte Edit1.Text := URL; i webbrowserens OnDocumentComplete.

procedure TSlbrowser.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin    //urls er din TWebbrowser
edit1.Text := urls.Text;
end;

Den vil slet ikke sluge ret meget selv om jeg kæmper ..
det er vil url - uden s
parantesen efter olevariant er vel for meget
hentyder procedurenavnet til at den skal knyttes til denne event i webbrowseren som hejhej foreslog (virker ikke) ?

  const pDisp: IDispatch;

Denne sætning forlanger den et lighedstegn efter ?

  Jeg er blevet meget forvirret : er ikke så skrap så prøv at skær det lidt ud i pap :)

nej det virker uoverkommeligt

Jeg forstår ikke helt, hvad du vil, men:

En lille sjov funktion jeg har lavet, der gør at den rigtige adresse vises i adressebaren, og faktisk fanger den del af en kendt IE-bug (http://www.tipchannel.dk/tema/IE_forfalsket/):

function URLCorrect(URL: String): String;
var
  I: Integer;
begin
  Result := '';
  for I := 1 to Length(URL) do
    if (URL[I] in [#0..#31, #127]) then
      Result := Result + '%' + IntToHex(Ord(URL[I]), 2)
    else
      Result := Result + URL[I];
end;


Kode i din TWebBrowsers OnDocumentComplete-event (bruger overstående funktione):


procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  CurWebrowser, TopWebBrowser: IWebBrowser;
begin
  CurWebrowser := pDisp as IWebBrowser;
  TopWebBrowser := (Asender as TWebbrowser).DefaultInterface;

  if CurWebrowser = TopWebBrowser then //Vi sikrer os, at det er hoved-framen i webbrowseren vi har fat i :o)
  begin
    if cmdAdress.Text <> URLCorrect(URL) then
      cmdAdress.Text := URLCorrect(URL);
  end;
end;

cmdAdress er en TEdit :o)