Web Browser (Tarayıcı) Programı

DrogbA · 3 Ocak 2021

C++ Builder 6 ile uyumludur. Bu programda bir web tarayıcısı (web browser) yapılmıştır. Programda C++ Builder bünyesinde bulunan bileşenlerin yanında estetik sağlaması amacıyla Alpha Control bileşeni kullanılmıştır.

PHP:

//---------------------------------------------------------------------------

 

#include <vcl.h>

#pragma hdrstop

 

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma link "sSkinManager"

#pragma link "acPNG"

#pragma link "acAlphaImageList"

#pragma link "SHDocVw_OCX"

#pragma link "sBitBtn"

#pragma link "sComboBox"

#pragma link "sButton"

#pragma link "sScrollBar"

#pragma link "sPanel"

#pragma link "sEdit"

#pragma resource "*.dfm"

TForm1 *Form1;

bool buton=false;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

        : TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::sBitBtn1Click(TObject *Sender)

{

CppWebBrowser1->GoBack();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::sBitBtn2Click(TObject *Sender)

{

CppWebBrowser1->Stop();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::sBitBtn3Click(TObject *Sender)

{

CppWebBrowser1->GoForward();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::sBitBtn4Click(TObject *Sender)

{

CppWebBrowser1->Refresh();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::sBitBtn6Click(TObject *Sender)

{

CppWebBrowser1->Navigate(WideString("http://www.facebook.com/home.php?"));

sComboBox1->Text="http://www.facebook.com/home.php?";

Form1->Caption="Facebook - Koala Web Browser";

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::sBitBtn7Click(TObject *Sender)

{

CppWebBrowser1->Navigate(WideString("http://www.google.com"));

sComboBox1->Text="http://www.google.com";

Form1->Caption="Google - Koala Web Browser";

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::sBitBtn8Click(TObject *Sender)

{

CppWebBrowser1->Navigate(WideString("http://www.hazirprogram.com/"));

sComboBox1->Text="http://www.hazirprogram.com";

Form1->Caption="Programlama Portalınız Hazır Program Programlama Dilleri Döküman Forum - Koala Web Browser";

}

//---------------------------------------------------------------------------

 

 

void __fastcall TForm1::sComboBox1KeyPress(TObject *Sender, char &Key)

{

if(Key==VK_RETURN)

CppWebBrowser1->Navigate(WideString(sComboBox1->Text));

}

//---------------------------------------------------------------------------

 

 

void __fastcall TForm1::sEdit1KeyPress(TObject *Sender, char &Key)

{

if(Key==VK_RETURN)

{

AnsiString arama=sEdit1->Text;

sComboBox1->Text="http://www.google.com.tr/#hl=tr&source=hp&biw=1366&bih=585&q="+arama+"&aq=f&aqi=g10&aql=&oq=&gs_rfai=&fp=d409d42931bac555";

CppWebBrowser1->Navigate(WideString(sComboBox1->Text));

}

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::sBitBtn9Click(TObject *Sender)

{

AnsiString arama=sEdit1->Text;

sComboBox1->Text="http://www.google.com.tr/#hl=tr&source=hp&biw=1366&bih=585&q="+arama+"&aq=f&aqi=g10&aql=&oq=&gs_rfai=&fp=d409d42931bac555";

CppWebBrowser1->Navigate(WideString(sComboBox1->Text));

}

//---------------------------------------------------------------------------

void __fastcall TForm1::k1Click(TObject *Sender)

{

Form1->Close();

}

//---------------------------------------------------------------------------

 

 

 

 

void __fastcall TForm1::SekmeyiKapat1Click(TObject *Sender)

{

Form1->PageControl1->ActivePage->TabVisible=false;

}

//---------------------------------------------------------------------------

 

 

 

 

 

  

 

//---------------------------------------------------------------------------

 

#include <vcl.h>

#pragma hdrstop

 

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma link "sSkinManager"

#pragma link "acPNG"

#pragma link "acAlphaImageList"

#pragma link "SHDocVw_OCX"

#pragma link "sBitBtn"

#pragma link "sComboBox"

#pragma link "sButton"

#pragma link "sScrollBar"

#pragma link "sPanel"

#pragma link "sEdit"

#pragma resource "*.dfm"

TForm1 *Form1;

bool buton=false;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

        : TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::sBitBtn1Click(TObject *Sender)

{

CppWebBrowser1->GoBack();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::sBitBtn2Click(TObject *Sender)

{

CppWebBrowser1->Stop();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::sBitBtn3Click(TObject *Sender)

{

CppWebBrowser1->GoForward();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::sBitBtn4Click(TObject *Sender)

{

CppWebBrowser1->Refresh();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::sBitBtn6Click(TObject *Sender)

{

CppWebBrowser1->Navigate(WideString("http://www.facebook.com/home.php?"));

sComboBox1->Text="http://www.facebook.com/home.php?";

Form1->Caption="Facebook - Koala Web Browser";

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::sBitBtn7Click(TObject *Sender)

{

CppWebBrowser1->Navigate(WideString("http://www.google.com"));

sComboBox1->Text="http://www.google.com";

Form1->Caption="Google - Koala Web Browser";

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::sBitBtn8Click(TObject *Sender)

{

CppWebBrowser1->Navigate(WideString("http://www.hazirprogram.com/"));

sComboBox1->Text="http://www.hazirprogram.com";

Form1->Caption="Programlama Portalınız Hazır Program Programlama Dilleri Döküman Forum - Koala Web Browser";

}

//---------------------------------------------------------------------------

 

 

void __fastcall TForm1::sComboBox1KeyPress(TObject *Sender, char &Key)

{

if(Key==VK_RETURN)

CppWebBrowser1->Navigate(WideString(sComboBox1->Text));

}

//---------------------------------------------------------------------------

 

 

void __fastcall TForm1::sEdit1KeyPress(TObject *Sender, char &Key)

{

if(Key==VK_RETURN)

{

AnsiString arama=sEdit1->Text;

sComboBox1->Text="http://www.google.com.tr/#hl=tr&source=hp&biw=1366&bih=585&q="+arama+"&aq=f&aqi=g10&aql=&oq=&gs_rfai=&fp=d409d42931bac555";

CppWebBrowser1->Navigate(WideString(sComboBox1->Text));

}

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::sBitBtn9Click(TObject *Sender)

{

AnsiString arama=sEdit1->Text;

sComboBox1->Text="http://www.google.com.tr/#hl=tr&source=hp&biw=1366&bih=585&q="+arama+"&aq=f&aqi=g10&aql=&oq=&gs_rfai=&fp=d409d42931bac555";

CppWebBrowser1->Navigate(WideString(sComboBox1->Text));

}

//---------------------------------------------------------------------------

void __fastcall TForm1::k1Click(TObject *Sender)

{

Form1->Close();

}

//---------------------------------------------------------------------------

 

 

 

 

void __fastcall TForm1::SekmeyiKapat1Click(TObject *Sender)

{

Form1->PageControl1->ActivePage->TabVisible=false;

}

//---------------------------------------------------------------------------

Admin · 10 Ocak 2021

Emeğine sağlık hocam.

DarK · 13 Ocak 2021

emeğine yüreğine sağlık

Nutella · 22 Ocak 2021

Paylaşım için teşekkürler.

suLhed · 6 Şub 2022

Güzel bilgiler için teşekkürler

Web Browser (Tarayıcı) Programı

DrogbA

Admin

Owner

DarK

< MasaLFM.Net >

Nutella

suLhed