Browser programmieren

[quendolineDD]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, OleCtrls, SHDocVw, StdCtrls;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    MainMenu1: TMainMenu;
    Hinzufuegen1: TMenuItem;
    Edit1: TEdit;
    procedure Hinzufuegen1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    StringList: TStringList;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Hinzufuegen1Click(Sender: TObject);
begin
StringList.Add(WebBrowser1.LocationURL);
Edit1.Text := StringList.Strings[0];
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
StringList := TStringList.Create;
WebBrowser1.Navigate('http://www.google.de');
end;

end.

Alles nur test-Quellcode. Also funktioniert wunderbar bei mir

Nur müsstest du die Daten dann noch abspeichern und wiederum beim erneuten aufruf deines Programmes laden und im MainMenu irgendwo anzeigen

Grüße

EDIT:

Um dann aus der Auswahl heraus auf die Seiten zu gelangen musst du ganz einfach dann bloß die gespeicherte URL dem Browser zuweisen.