Ewet arkadaşlar size cok basit bir Web Browser Ornek Kodunu ve Form Bilgilerini Veriyorum

Ozellikleri
-İleri , Geri , Anasayfa, Dur Fonksiyonları
-Sayfanın Arandıgını ve Tamamlandıgını Metin Olaraka Gosterir Bir Fonksiyon


Ornek Program Pas Dosyası Verileri

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, OleCtrls, SHDocVw, Menus;

type
TForm1 = class(TForm)
Edit1: TEdit;
WebBrowser1: TWebBrowser;
StatusBar1: TStatusBar;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Button4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure WebBrowser1DownloadComplete(Sender: TObject);
procedure WebBrowser1DownloadBegin(Sender: TObject);
private

public

end;

var
Form1: TForm1;

implementation



procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_Return then
begin
WebBrowser1.Navigate(WideString(Edit1.Text));
Button2.Enabled :=True;
Button4.Enabled :=True;
Form1.Caption :=(Edit1.Text);
StatusBar1.Panels[0].Text :=('Site Bulunuyor...');
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
WebBrowser1.Navigate(WideString('http://www.ogame.com.tr'));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Webbrowser1.Stop;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.GoBack;
Button3.Enabled :=True;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
WebBrowser1.GoForward;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate(WideString('http://www.ogame.com.tr'));
Button2.Enabled :=False;
Button3.Enabled :=False;
Button4.Enabled :=False;
end;

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
StatusBar1.Panels[0].Text :=('Tamamlandı.');
end;

procedure TForm1.WebBrowser1DownloadBegin(Sender: TObject);
begin
StatusBar1.Panels[0].Text :=('Site Bulunuyor...');
end;

end.




Ornek Program Dfm Dosyası Verileri

object Form1: TForm1
Left = 132
Top = 116
Width = 826
Height = 618
Caption = 'Web Browser'
Color = clHighlight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
WindowState = wsMaximized
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Edit1: TEdit
Left = 8
Top = 16
Width = 393
Height = 21
TabOrder = 0
Text = 'http://www.ogame.com.tr'
OnKeyDown = Edit1KeyDown
end
object WebBrowser1: TWebBrowser
Left = 8
Top = 40
Width = 777
Height = 481
TabOrder = 1
OnDownloadBegin = WebBrowser1DownloadBegin
OnDownloadComplete = WebBrowser1DownloadComplete
ControlData =
end
object StatusBar1: TStatusBar
Left = 0
Top = 565
Width = 818
Height = 19
Panels = <
item
Text = 'Tamamlandı.'
Width = 50
end>
end
object Button1: TButton
Left = 408
Top = 8
Width = 41
Height = 25
Caption = 'Dur'
TabOrder = 3
OnClick = Button1Click
end
object Button2: TButton
Left = 456
Top = 8
Width = 41
Height = 25
Caption = 'Geri'
TabOrder = 4
OnClick = Button2Click
end
object Button3: TButton
Left = 504
Top = 8
Width = 41
Height = 25
Caption = 'İleri'
TabOrder = 5
OnClick = Button3Click
end
object Button4: TButton
Left = 552
Top = 8
Width = 41
Height = 25
Caption = 'Anasayfa'
TabOrder = 6
OnClick = Button4Click
end
end
__________________