Internet Links herausfinden...

[GuybrushThreepwood]

Ich danke euch für die Lösung, und es klappt auch, aber nur teilweise... z.B. bei www.Google.de klappt es nicht, weiß jemand wieso ???

Mein Code sieht so aus:

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  If Key = VK_RETURN Then
  Begin
    WebBrowser1.Navigate(ComboBox1.Text);
  End;
end;

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  ComboBox1.Items.Add(URL);
end;

end.