Witam,
To jest mój pierwszy artykuł, więc wszelkie uwagi mile widziane 😉
Program był napisany w Delphi 7 Personal z użyciem WebBrowsera.
Dobra, zaczynajmy!
Wstaw na forme:
– TWebBrowser – nazwa: WebBrowser1 , Algin zmień na alClient
– Panel – nazwa: Panel1 – zmień Algin na AllTop
– SpeedButton – nazwa SpeedButton 1-4 – Ilość: 4 – Wstaw je na Panel1
– Panel – nazwa: Panel2 – zmień Algin na AllTop
– Edit – nazwa: Edit1 – Wstaw go na Panel2
– SpeedButton – nazwa: SpeedButton5 – wstaw na Panel2
Oczywiście z Panel1 i Panel 2 kasujemy Caption.
Najpierw, kliknij 2 razy na SpeddButtonie numer 5, pokaże ci się edytor kodu wpisz (lub skopiuj) następujący kod:
|
1 |
WebBrowser1.Navigate(Edit1.Text); |
Ta procedura sprawi, że po wciśnięciu tego przycisku zostanie pobrany adres z Edit1 i otwarty .
Teraz podepniemy kilka procedur które będą potrzebne do nawigacji (odśwież, wstecz, dalej, stop). Najpierw wstecz i dalej. Właściwości caption dwóch przez nas wybranych speedbuttonów (np. dwa pierwsze) ustawiamy na Wstecz i naprzód (lub inne byle by oznaczały funkcję jaką wykonują te buttony – oczywiście po wpisaniu będziecie musieli zmienić ich rozmiar bo się teksty nie zmieszczą). Klikamy dwa razy na pierwszy button (wstecz) i wstawiamy następującą procedurkę:
|
1 |
WebBrowser1.GoBack; |
I przycisk dalej:
|
1 |
WebBrowser1.GoForward; |
Teraz przyciski stop i odśwież.
Do Buttona „stop” dodajemy kodzik :
|
1 |
WebBrowser1.Stop; |
Do odświeżania dodajemy kodzik :
|
1 |
WebBrowser1.Refresh; |
I już mamy taką byle jaka przeglądarke z podstawowymi umiejętnościami 🙂
Jeszcze by się przydało, żeby po otwarciu strony otworzyła się strona startowa (główna)
Aby tak sprawić,należy w OnCreate formy wpisać taki oto kod:
|
1 |
WebBrowser1.GoHome; |
Niestety, strona główna jest pobierana z przeglądarki Internet Explorer.
Dobrze by było, żebyśmy mieli jakiś stan ładowania strony, prawda? Aby to zrobić należy:
Wstaw na forme (lub Panel2) ProgressBar, a w OnProgrssChange w WebBrowser1 wpisz
|
1 |
ProgressBar1.Max := ProgressMax; ProgressBar1.Position := Progress; |
I to już koniec 🙂 Oczywiście można pododawać różnych bajerków do przeglądarki, bo to w końcu teraz jest Twoja przeglądarka 🙂
Wiem wiem..kiepsko wygląda,ale niezbyt się starałem u siebie 😉
Mam nadzieje, że na coś się przydał ten artykuł
Pozdrawiam, i powodzenia.
Autor: ZooMpl