Wie kann ich einen Browser basteln?

[KingofWerlte]

So hier der versprochene Source:
(zur erklärung evtl. die HP wird in einem Ole Fenster dargestellt)

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    btnStart: TButton;
    btnZurueck: TButton;
    btnVorwaerts: TButton;
    btnHinzufuegen: TButton;
    btnEntfernen: TButton;
    btnNeu: TButton;
    btnAbbrechen: TButton;
    OleContainer1: TOleContainer;
    procedure OnCreate(Sender: TObject); //Form1
    procedure FormShow(Sender: TObject); //Form1
    procedure FormClose(Sender: TObject; var Action: TCloseAction); //Form1
    procedure btnStartClick(Sender: TObject);
    procedure btnZurueckClick(Sender: TObject);
    procedure btnVorwaertsClick(Sender: TObject);
    procedure btnNeuClick(Sender: TObject);
    procedure btnAbbrechenClick(Sender: TObject);
    procedure btnHinzufuegenClick(Sender: TObject);
    procedure btnEntfernenClick(Sender: TObject);
    

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
const
   FavouritenListe = 'c:\FavouritenListe.txt';
   
implementation

{$R *.dfm}

procedure TForm1.OnCreate(Sender: TObject);
begin
OleContainer1.CreateObject('Shell.Explorer',False);
if FileExists(FavouritenListe) then
   ComboBox1.Items.LoadFromFile(FavouritenListe);

end;

procedure TForm1.FormShow(Sender: TObject);
begin
OleContainer1.DoVerb(ovShow);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ComboBox1.Items.SaveToFile(FavouritenListe);
OleContainer1.Close;
OleContainer1.DestroyObject;

end;

procedure TForm1.btnStartClick(Sender: TObject);
begin
OleContainer1.OleObject.Navigate(ComboBox1.Text);
end;

procedure TForm1.btnZurueckClick(Sender: TObject);
begin
OleContainer1.OleObject.GoBack;
end;

procedure TForm1.btnVorwaertsClick(Sender: TObject);
begin
OleContainer1.OleObject.GoForward;
end;

procedure TForm1.btnNeuClick(Sender: TObject);
begin
OleContainer1.OleObject.Refresh;
end;

procedure TForm1.btnAbbrechenClick(Sender: TObject);
begin
OleContainer1.OleObject.Stop;
end;

procedure TForm1.btnHinzufuegenClick(Sender: TObject);
begin
if ComboBox1.Items.IndexOf(ComboBox1.Text)=-1 then
   ComboBox1.Items.Add(ComboBox1.Text); 
end;

procedure TForm1.btnEntfernenClick(Sender: TObject);
begin
if ComboBox1.Items.IndexOf(ComboBox1.Text)<>-1 then
   ComboBox1.Items.Delete(ComboBox1.Items.IndexOf(ComboBox1.Text)); 
end;

end.

So da ich die Komponenten mit angegeben hast kannst du den eigentlich ganz leicht nachprogrammieren
Hier der link: Mein Browser