Home > IT, Programe > Crearea unui browser web propriu in Turbo Delphi Explorer

Crearea unui browser web propriu in Turbo Delphi Explorer

Turbo Delphi Explorer este un IDE ce permite realizarea de aplicaţii executabile. În articolul de faţă voi descrie modalitatea de creare a unui browser web. Se va accesa meniul File – New – VCL Forms Application – Delphi for Win32:

01

Vom adăuga din Tool Palette un Panel:

02

Vom seta Bottom pentru proprietatea Align iar pentru Caption vom elimina textul implicit Caption1:

03

Apoi vom adăuga cinci butoane de tip BitBtn din paleta Additional:

04

Le vom seta pe rând proprietatea Caption după cum urmează: Back, Forward, Refresh, Stop şi Home:

05

Apoi, din secţiunea Standard a paletei Tool Palette vom adăuga pe Panel1 un ComboBox:

06

Proprietatea Text a acestuia o vom modifica din ComboBox1 în http://www.google.ro:

07

Vom mai adăuga un buton de tip BitBtn cu proprietatea Caption setată Go. Vom selecta primele cinci butoane (ţinând apăsată tasta Shift şi selectându-le cu mouse-ul) şi le vom schimba proprietăţile akLeft=True, akTop=False, akRight=False şi akBottom din secţiunea Anchors din Object Inspector:

08

Apoi pentru ComboBox1 vom regla pentru akTop, akRight şi akBottom opţiunea True şi pentru akLeft=True:

09

Pentru butonul BitBtn6 vom seta False pentru akLeft şi akTop, iar pentru akRight şi akBottom opţiunea True:

10

Vom mai adăuga apoi o componentă de tip TWebBrowser din paleta Internet (Tool Palette):

11

Vom seta pentru acesta din Object Inspector opţiunea alClient pentru proprietatea Align:

12

Din acest moment vom începe scrierea codului sursă propriu zis şi anume:

13

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   WebBrowser1.GoBack;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
   WebBrowser1.GoForward;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
   WebBrowser1.Refresh;
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
   WebBrowser1.Stop;
end;
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
   WebBrowser1.GoHome;
end;
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
   WebBrowser1.Navigate(ComboBox1.Text);
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
   BitBtn6.Enabled:=ComboBox1.Text<>'';
end;
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;  const pDisp: IDispatch; var URL: OleVariant);
begin
   ComboBox1.Text:=URL;
   ComboBox1.Items.Add(ComboBox1.Text);
end;
procedure TForm1.WebBrowser1StatusTextChange(ASender: TObject;  const Text: WideString);
begin
   Form1.Caption:='Personal Web Browser ['+(WebBrowser1.LocationName)+']';
end;
procedure TForm1.WebBrowser1StatusTextChange(ASender: TObject;  const Text: WideString);
begin
   Form1.Caption:='Personal Web Browser ['+(WebBrowser1.LocationName)+']';
end;

14

Vom seta ca la crearea lui Form1 să se execute evenimentul ce se declanşează la apăsarea butonului BitBtn6 şi anume BitBtn6Click:

15

Iar proprietatea Caption a ferestrei Form1 o vom modifica din Form1 în Personal Web Browser:

16

Pentru ca executabilul ce îl vom genera să aibe amprentă proprie, vom merge în meniul Project – Options…:

17

Şi vom alege o pictogramă diferită de cea implicită:

18

Aplicaţia lansată în execuţie arată astfel:

19

Se pot adăuga următoarele modificări asupra proiectului:

BitBtn6.Default:=True;
Form1.WindowState:=wsMaximized;

– pentru ca la apăsarea tastei Enter (în cazul în care focus-ul este în ComboBox1) să se execute evenimentul ataşat apăsării butonului BitBtn6
– iar în momentul lansării în execuţie a aplicaţiei, fereastra principală să fie maximizată pe tot ecranul.

Fişierul executabil generat în urma compilării proiectului este disponibil aici.

Categories: IT, Programe Tags: , , , , , ,
  1. catavencu
    2010/11/04 at 8:06 am
  2. catavencu
  3. catavencu
  4. 2010/11/11 at 10:44 pm

    i want it

  5. 2010/11/15 at 5:34 am

    i like

  6. alex
    2011/05/17 at 12:54 pm

    Buna ziua,
    Felicitari pentru blog.
    Sunt elev la liceu si as vrea sa ma apuc sa invat delphi insa nu stiu cu ce sa incep, ce carte buna puteti sa imi recomandati, pot spune ca stiu pascal la un nivel mediu. Vreau sa invat delphi pentru ca am observat ca se pot face foarte multe lucruri in el si as vrea sa realizez lucrarea de atestat in acest limbaj, m-ar interesa cum as putea realiza un mic motor de cautare…
    Cu stima,
    Alex

    • 2011/05/17 at 6:55 pm

      Una dintre primele carti despre Delphi pe care am citit-o si as recomanda-o este scrisa de Bogdan Patrut, parca se numeste Aplicatii in Delphi.
      Dar nu o sa poti invata doar din carti.

    • 2011/05/17 at 6:57 pm

      La ce te referi cand spui ca vrei sa faci un motor de cautare?

  7. alex
    2011/05/17 at 1:08 pm

    * mentionez ca stiu pascal cam ce se face la liceu, nu lucruri foarte avansate, asta am vrut sa spun prin nivel mediu daca se poate considera

  8. alex
    2011/05/18 at 10:16 am

    mersi pentru raspuns,.. as fi vrut sa fac motor de cautare pentru un magazin de piese auto sau ceva de genu asta, sa scriu toate inregistrarile intr-un fisier text si sa le iau de acolo la fiecare cautare…

  9. 2011/05/18 at 9:53 pm

    Pentru asta trebuie sa folosesti baze de date. Daca folosesti fisiere text, cautarea va deveni foarte lenta la cateva sute de inregistrari.

  1. No trackbacks yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: