A differenza di quanto molte persone pensano il delphi è un linguaggio di programmazione molto semplice ed efficiente.
Oggi vi illustrerò come creare un vostro WebBrowser.
Allora...
Per prima cosa inserite come controlli i seguenti:
- Un Tbutton
- Un TWebBrowser
- Un TMainMenu
- Ed infine un TEdit.
Ovviamente ciò che dirò dal punto di vista grafico sarà completamente personalizzabile, comunque, inserire nel MainMenu come "items" principali "File","Modifica" e "X", all'interno del menu contestuale che abbiamo chiamato "File" invece inserire "New", "Vai a.." e "Chiudi".
Nel menu contestuale chiamato "Modifica" inserire semplicemente "Indietro","Avanti","Aggiorna" e "Stop".
Ecco che abbiamo impostato tutti gli items del MainMenu che per me sono importanti per il webbrowser.
Ora passiamo alla parte del codice:
La "X" è destinata a chiudere l'applicazione quindi inseriremo:
CODICE
Application.Terminate
In "New" del menu "File" inseriremo:
CODICE
WebBrowser1.Navigate('about:blank');
Facendo in modo che al click su di esso il WebBrowser faccia vedere la famosa pagina bianca [about:blank].
In "Vai a.." utilizzeremo un InputBox in modo da far decidere all'utente che pagina visitare, dopo aver quindi dichiarato la variabile "sito" di tipo string agiremo in questo modo:
CODICE
sito:=InputBox('Inserire il sito da visitare:','Inserire il sito da visitare:','');
WebBrowser1.Navigate(sito)
In "chiudi" la stessa cosa che abbiamo inserito in X.
Passiamo all'altro menù: "Modifica".
Quindi inseriremo nella procedura dell'item "Avanti" :
CODICE
WebBrowser1.GoForward;
In quella dell'item "Indietro":
CODICE
WebBrowser1.GoBack;
In "Aggiorna":
CODICE
WebBrowser1.Refresh;
Ed infine in stop come succede anche negli altri browser, il codice per far si che il WebBrowser stoppi il caricamento della pagina visitata:
Nel button inseriremo :
CODICE
WebBrowser1.Navigate(Edit1.Text)
Ed ecco che abbiamo completato il nostro browser ... Inserite altre funzioni e personalizzate la grafica come meglio volete
Come esempio del risultato di questa guida vi posto un semplice WebBrowser da me creato, ecco:
Guida creata unicamente da me, .Grindelwald™, vietata la copia e la personalizzazione senza la mia autorizzazione.