Proszę bardzo, aby udowodnić, że się da:
Oto co za chwilę uzyskamy: https://gmclan.org/up23_4_przeg.html
A teraz jak zorbić przeglądarkę w 5 minut.
Po pierwsze odpalamy Delphi. Wybieramy z Menu Component opcję Import ActiveX. Wybieramy Microsoft Internet Controls, klikamy Install. Zamykamy Delphi i uruchamiamy raz jeszcze.
- Dodajemy na Formie element Panel. Ustawiamy Align na alTop, BevelOuter na bvNone.
- Dodajemy na panelu element ProgresBar. Ustawiamy Align na alTop, Height na 7, Smooth na True
- Dodajemy na paneluelement Edit. Ustawiamy tekst na http://google.pl/firefox
- Dodajemy na paneluelement Button. Caption ustawiamy na Idź.
- Dodajemy na Formie element StatusBar.
- Dodajemy na Formie element WebBrowser (bodaj z zakładki ActiveX). Align ustawiamy na alClient.
Nazwy każdego obiektu pozostawiamy domyślne.
Teraz oprogramowujemy.
Button1, onClick:
LoadSite(Edit1.Text);
Edit1, onKeyDown:
if KEY = vk_return then LoadSite(Edit1.Text);
WebBrowser1, onDocumentComplete:
StatusBar1.SimpleText := 'Gotowe';
WebBrowser1, onProgressChagne:
ProgressBar1.Max :=ProgressMax;
ProgressBar1.Position := Progress;
Form1, onCreate:
LoadSite(Edit1.Text);
W sekcji private dodajemy:
procedure LoadSite(URL : String);
W sekcji implementation (po {$R *.dfm}) dodajemy:
procedure TForm1.LoadSite(URL : String);
begin
if copy(URL, 2,2) <> ':\' then //jeżeli to nie będzie x:\
begin
if copy(URL, 1,7) <> 'http://' then URL := 'http://' + URL;
end;
Webbrowser1.Navigate(URL);
Edit1.Text:=URL;
end;
Naciskamy Ctrl+F9
Naciskamy F9 i cieszymy się naszą własną przeglądarką w 5 minut.
Tak naprawdę jest to Internet Explorer.
Miłej zabawy !