<font color="black"></span>Mam kilka pytań dotyczących przeglądarki internetowej zrobionej na podstawie komponentu TWebBrowser. 1) Nie wiem np. co zrobić, aby po napisaniu w wyszykiwarce tekstu, po naciśnięciu klawisza Enter Rozpoczęło się wyszukiwanie (chodzi mi o skojarzenie klawisza enter z domyślną akcją). 2) Jak zrobić, aby strona domowa nie była wspólna z Internet Explorerem. Najprościej chyba byłoby zrobić Formę z Edit, gdzie wpisywałoby się adres strony domowej i żeby po naciśnięciu przycisku Start, wykonywało Navigate, biorąc adres z Edita. Ale jest jeden problem. Nie wiem jak zrobić, żeby zapisywało Zawartość Edit do Pliku. Z memo jest to polecenie save/load to/from file, ale w edit tego nie ma... Kumpel mi mówił, że to polecenie nazywa się Assign to file... ale nie wiem :). 3) Jak zrobić, aby zapisywało stronę na dysku? Wiem, że trzeba zrobić coś z komponentem HTTPGet, ale co dokładnie?
Jeśli chodzi o stronę domową to jeżeli twój TWebBrowser
nazywa się WebBrowser to kod wygląda następująco:
WebBrowser.Navigate('http://jakis_serwer.pl/plik.php'); // ;)
najlepiej jak skopiuj to do FormCreate wtedy strona domowa będzie
wyświetlana przy otwarciu strony.. :)
cały kod:
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser.Navigate('<font color="blue">http://jakis_serwer.pl/plik.php</span>'); <font color="green">// ;)</span>
end;
A jeszcze Enterek :) zapomniałem o nim :)
[code]if Key = #13 then SpeedButton5.Click;[/code]
kod ten należy wstawić w Edit1 w OnKeyPress
dotyczy on Edit'a i SpeedButton'a
jak nie wiesz jak to się robi to na dole czytaj ...
Wstawiasz Edit o nazwie Edit1 i SpeedButton o nazwie SpeedButton5, klikasz w Object Inspectorze
na zakładkę Events i następinie OnKeyPress, tam wstawiasz
powyższy kod.
Całość powinna wyglądać tak:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then SpeedButton5.Click; // teraz enter zadziala :)
end;
Następnie klikasz dwa razy w SpeedButton5 i wstawiasz to:
[code]WebBrowser1.Navigate(Edit1.Text);[/code]
i kompilujesz :) teraz jak wpiszesz adres to albo po naciśnięciu SpeedButton'a5 albo po naciśnięciu enter'a będzie wczytywać stronę...
Jezeli adres wpisujesz w TEdit:
Dajesz ten kod w OnKeyPress Edita
if key=#13 then
try
WebBrowser.Navigate('http://www.4programmers.net');
finally
key:=#0;
end;
end;
jesli chodzi o site domowa ; :