LED - Polskie Forum Komputerowe

Delphi posiada doskonały komponent, który pozwoli nam w prosty sposób utworzyć własną przeglądarkę internetową opartą na enignie Internet Explorera firmy Microsoft. Na początku musimy umieścić na formie komponent, który wyświetlał będzie strony internetowe. Znajduje się on w zakładce 'Internet' pod nazwą TWebBrowser. Umieśćmy go na formie i pozostawmy domyślną nazwę czyli 'WebBrowser1'. Teraz na formie umieśćmy komponent TEdit o nazwie TEdit1. Ustawmy jego zdarzenie OnKeyPress:

Spoiler:

if key = #13 then
begin
WebBrowser1.Navigate(Edit1.text);
end;

Ten fragment kodu pozwoli nam wyświetlić zawartość strony o adresie wpisanym w Edit1 po wciśnięciu przycisku enter.

Teraz możemy umieścić dodatkowe przyciski zwane przyciskami nawigacyjnymi. Oto ich kody:

Wstecz:

Spoiler:

WebBrowser1.GoBack;

Dalej:

Spoiler:

WebBrowser1.GoForward;

Stop:

Spoiler:

WebBrowser1.Stop;

Odśwież:

Spoiler:

WebBrowser1.Refresh;

W taki prosty sposób mamy już bardzo okrojoną przeglądarkę internetową o standardowych funkcjach nawigacyjnych.

Teraz dodajemy dodatkowe funkcje. Najpierw dodamy procedurę, która umożliwi nam wyświetlanie postępu ładowania strony.

Na formę dodaj komponent TGauge z zakładki 'Samples'. Ten komponent yświetli postęp ładowania strony.

Teraz musimy ustawić zdarzenie 'OnProgressChange' dla WebBrowser1:

Spoiler:

ProgressMax := 100;
Gauge1.Progress := Progress;

Tak w prosty sposób otrzymaliśmy pasek postępu. Teraz następna przydatna funkcja. Internet Explorer wyświetla bowiem na pasku tytułowym zaratość znaczników title. Aby nasz program także wyświetlał title musimy dodać zdarzenie OnTitleChange dla WebBrowse1:

Spoiler:

Form1.Caption := text;

OK. Jeszcze kilka zdarzeń. Teraz OnstatusTextChange. Zdarzenie to pozwoli wyświetlać tekst statusu. W IE przedstawiony jest on na dolnym panelu i wyświetla m.in. adresy odnośników. W naszym przypadku odpowiada za to właśnie zdarzenie OnstatusTextChange. Gdy chcemy aby status był wyświetlany na panelu najpierw umieszczamy na formie komponent TStatusBar o nazwie StatusBar1. Teraz musimy dodać panel na StatusBar1. Robi się to poprzez dwukrotne kliknięcie na panel i kliknięcie ikonki 'Add New'. Teraz OnstatusTextChange WebBrowser1:

Spoiler:

StatusBar1.Panels[0].text := Text;

I jeszcze jedna bardzo ważna funkcja, która uniemożliwi przejęcie okien innej przeglądarce. Oznacza to, że w przypadku kiedy link zostanie otwarty w nowym oknie otworzy go nasza przeglądarka a nie np. IE. Aby to zrobić musimy ustawić zdarzenie webBrowser1 OnNewWindow2:

Spoiler:

var NewWindow: TForm1;
begin
  NewWindow := TForm1.Create(self);
  NewWindow.Show;
  ppDisp := NewWindow.Webbrowser1.DefaultDispatch;
end;

Źródło: 4Programmers.net