- Katılım
- 29 Mayıs 2019
- Mesajlar
- 8,562
- Tepkime puanı
- 2
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;
}
//---------------------------------------------------------------------------