Buyrun Download Linki
rapidshare.de/files/46133946/CeX.rar.html


Buda Kaynak Kodu

Kod:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, sBitBtn, ImgList, acAlphaImageList, sComboBox, sSkinProvider, sSkinManager, ExtCtrls, sPanel, OleCtrls, SHDocVw, ComCtrls, sGauge, sButton, sLabel, Menus; type TForm1 = class(TForm) sSkinManager1: TsSkinManager; sSkinProvider1: TsSkinProvider; sPanel1: TsPanel; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; sComboBox1: TsComboBox; sBitBtn1: TsBitBtn; sBitBtn2: TsBitBtn; WebBrowser1: TWebBrowser; sPanel2: TsPanel; sGauge1: TsGauge; sLabelFX1: TsLabelFX; PopupMenu1: TPopupMenu; YeniPenceredeA1: TMenuItem; procedure FormResize(Sender: TObject); procedure sComboBox1KeyPress(Sender: TObject; var Key: Char); procedure WebBrowser1CommandStateChange(Sender: TObject; Command: Integer; Enable: WordBool); procedure FormCreate(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure WebBrowser1ProgressChange(Sender: TObject; Progress, ProgressMax: Integer); procedure sBitBtn1Click(Sender: TObject); procedure sBitBtn2Click(Sender: TObject); procedure WebBrowser1DownloadComplete(Sender: TObject); procedure sButton1Click(Sender: TObject); procedure WebBrowser1StatusTextChange(Sender: TObject; const Text: WideString); procedure YeniPenceredeA1Click(Sender: TObject); procedure sComboBox1Select(Sender: TObject); procedure sPanel2Click(Sender: TObject); private public end; var Form1: TForm1; implementation procedure TForm1.FormResize(Sender: TObject); begin sComboBox1.Width:=Form1.Width-167; sBitBtn1.Left:=Form1.Width-84; sBitBtn2.Left:=Form1.Width-52; end; procedure TForm1.sComboBox1KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then begin WebBrowser1.Navigate(sComboBox1.Text); sComboBox1.Items.Add(sComboBox1.Text); sComboBox1.Items.SaveToFile('En-Son-Girilenler.Delphi[Cryz4Dvl4]'); end; end; procedure TForm1.WebBrowser1CommandStateChange(Sender: TObject; Command: Integer; Enable: WordBool); begin sComboBox1.Text:=WebBrowser1.LocationURL; Caption:=WebBrowser1.LocationName; end; procedure TForm1.FormCreate(Sender: TObject); begin sComboBox1.Items.LoadFromFile('En-Son-Girilenler.Delphi[Cryz4Dvl4]'); end; procedure TForm1.SpeedButton1Click(Sender: TObject); begin WebBrowser1.GoBack; end; procedure TForm1.SpeedButton2Click(Sender: TObject); begin WebBrowser1.GoForward; showmessage(WebBrowser1.StatusText); end; procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress, ProgressMax: Integer); begin sGauge1.MaxValue:=ProgressMax; sGauge1.Progress:=Progress; end; procedure TForm1.sBitBtn1Click(Sender: TObject); begin WebBrowser1.Navigate(sComboBox1.Text); sComboBox1.Items.Add(sComboBox1.Text); sComboBox1.Items.SaveToFile('En-Son-Girilenler.Delphi[Cryz4Dvl4]'); end; procedure TForm1.sBitBtn2Click(Sender: TObject); begin WebBrowser1.Stop; end; procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject); begin sGauge1.Progress:=0; end; procedure TForm1.sButton1Click(Sender: TObject); begin WinExec(GetCommandLine,sw_show); end; procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject; const Text: WideString); begin sLabelFX1.Caption:=Text; end; procedure TForm1.YeniPenceredeA1Click(Sender: TObject); begin showmessage(WebBrowser1.FullName); end; procedure TForm1.sComboBox1Select(Sender: TObject); begin WebBrowser1.Navigate(sComboBox1.Text); end; procedure TForm1.sPanel2Click(Sender: TObject); begin end;
end.

Coded ßy Cryz4dvl4


__________________