et par spørgsmåls

#1 : I eventen for webbrower1 som hedder NavigateComplete skriver du bare

begin
  edit1.text := webbrowser1.locationURL;
end;

#2 TWebBrowser har en event der hedder OnProgressChange

ved ik om en Gauge vil være bedre...?

procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
begin
Progressbar1.Max:=ProgressMax;
ProgressBar1.Step:=1;
Progressbar1.Position:=Progress;

end;

/Fracklen

#3 Det kommer nok til at ligne IE ret meget, men TWebBrowser har oxo en event der hedder OnStatusTextChange

procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject;
  const Text: WideString);
begin
StatusBar1.SimplePanel:=True;
StatusBar1.SimpleText:=Text;
end;

fracklen> i #2. hvis man skal lave med Gauge skal man bare skrive det samme bare erstatte Progressbar1 til Gauge1 ??

Fracklen> hvordan gøre man det med progress bare med Gauge??

Diz>> det med edit.text... <-- det virker ik.. og jeg har sat den i OnNavigatecomplete

du skal jo huske at du skal være på en side før den skriver noget...hvordan fortæller du hvilken side du skal vise? Sætter du den i form create eller hva? Hvis din ide er ikke kun at vise hvilken side du er inde på, men også kunne skrive hvilken side du er inde på skal du også have følgende :

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
  begin
    webbrowser1.Navigate(edit1.Text);
  end;
end;

alt i alt med hva mig og fracklen har vist, skulle din kode ligne følgende :

unit uWebbrowser;

interface

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

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Edit1: TEdit;
    ProgressBar1: TProgressBar;
    StatusBar1: TStatusBar;
    procedure FormCreate(Sender: TObject);
    procedure WebBrowser1NavigateComplete2(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure WebBrowser1ProgressChange(Sender: TObject; Progress,
      ProgressMax: Integer);
    procedure WebBrowser1StatusTextChange(Sender: TObject;
      const Text: WideString);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  webbrowser1.Navigate('about:Blank');
end;

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  edit1.Text := webbrowser1.LocationURL;
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
  begin
    webbrowser1.Navigate(edit1.Text);
  end;
end;


procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
begin
  progressbar1.Max := progressmax;
  progressbar1.Step := 1;
  progressbar1.Position := progress;
end;

procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject;
  const Text: WideString);
begin
  statusbar1.SimplePanel := true;
  statusbar1.SimpleText := text;
end;

end.


Håber du kan bruge det :)

ok det virker!

Hvis du vil bruge en Gauge istedet så skriv følgende i webbrowsers OnProgressChange:

procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
begin
  gauge1.MaxValue := progressmax;
  gauge1.MinValue := 0;
  gauge1.Progress := progress;
end;

takker.. :D Diz du får extra point hvis du kan svare på min 2 andre spørgsmål: #1: Hvordan gør jeg sådan at når man klikker på et link der åbner et nyt vindue så åbner den i mit program, fordi at når jeg trykker på et link der åbner et nyt vindue så åbner den IE vindue..                #2. Hvordan gør jeg sådan at når man har besøgt en side før så gemmer den siden i en combobox.. sådan at når næste gang man vil ind trykker man bare på pilen ude i siden og klikker på linket??

for at gemme hvor du har været skal du have følgende i din kode:

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  i : Integer;
  exist : Boolean;
begin
    combobox1.Text := webbrowser1.LocationURL;
    for i := 0 to combobox1.Items.Count-1 do
    begin
      if webbrowser1.LocationURL = combobox1.Items.Strings[i] then
      begin
        exist := true;
        break;
      end;
    end;
    if not exist then combobox1.Items.Add(combobox1.Text);
end;

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
  begin
    webbrowser1.Navigate(combobox1.Text);
  end;
end;


procedure TForm1.ComboBox1Select(Sender: TObject);
begin
  webbrowser1.Navigate(combobox1.Text);
end;

Og du skal huske at skifte din edit1 ud med en combobox1.
Læg dog mærke til at den ikke gemmer det i en fil eller lign. DVS næste gang du starter programmet, så er stederne væk.

jamen hvordan gøre jeg så sådan at den gemmer også til næste gang.. (med ini filer)

diz ved du hvordan man laver #2. ?

ja, en måde ville være at skrive det til en tekstfil. Men hvis du ikke vil have listen til at være altfor lang, så skal man nok sætte noget begrænsning af en eller anden art.

Det andet spørgsmål et jeg ikke helt klar over hvordan man kan løse, men kigger lige lidt på det i aften/ imorgen.

ok :D

her er lidt som åbner popup i din egen browser:

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
  NewWindow: TForm1;
begin
  NewWindow := TForm1.Create(self);
  NewWindow.Show;
  ppDisp := NewWindow.Webbrowser1.DefaultDispatch;
end;

Det er taget fra nedenstående spørgsmål, som du måske også kan læse

http://www.eksperten.dk/spm/192981

skal TForm1 være den mdi child hvor webbrowser er? hvis ja så er det TForm2 ik ? fordi at min for med webbrowseren er Form2

lige præcis....

Har selv lige prøvet det og det skulle virke.

diz jeg har ikke afprøvet det med at gemme i en combobox og den med popup i min egen browser, men det gør jeg snart :D.. Jeg har bare travlt med en stil. :(

luk