Web Browser (Tarayıcı) Programı - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Swat · 01 Temmuz 2014, 13:07

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 Kod: Kodu kopyalamak için üzerine çift tıklayın!


 

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

 

#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("
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">));

sComboBox1->Text="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">;

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

}

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

 

void __fastcall TForm1::sBitBtn7Click(TObject *Sender)

{

CppWebBrowser1->Navigate(WideString("
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">));

sComboBox1->Text="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">;

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

}

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

 

void __fastcall TForm1::sBitBtn8Click(TObject *Sender)

{

CppWebBrowser1->Navigate(WideString("
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">));

sComboBox1->Text="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">;

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="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">+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="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">+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("
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">));

sComboBox1->Text="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">;

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

}

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

 

void __fastcall TForm1::sBitBtn7Click(TObject *Sender)

{

CppWebBrowser1->Navigate(WideString("
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">));

sComboBox1->Text="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">;

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

}

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

 

void __fastcall TForm1::sBitBtn8Click(TObject *Sender)

{

CppWebBrowser1->Navigate(WideString("
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">));

sComboBox1->Text="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">;

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="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">+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="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">+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;

}

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

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
En Dayanıklı Tarayıcı !	dreamy	Bilişim Hukuku	0	01 Temmuz 2009 19:20

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.