|
23/03/07, 13:16
|
#1
|
Yarbay
Üyelik tarihi: Dec 2006
Yaş: 39
Mesajlar: 361
Tecrübe Puanı: 0
|
Delphi ile Web Browser Programi
type
Tweb = class(TForm)
WebBrowser1: TWebBrowser;
Panel1: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
Edit1: TEdit;
Edit2: TEdit;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure WebBrowser1TitleChange(Sender: TObject;
const Text: WideString);
procedure WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
private
{ Private declarations }
public
{ Public declarations }
end;
var
web: Tweb;
implementation
{$R *.dfm}
procedure Tweb.SpeedButton1Click(Sender: TObject);
var
a,b,c,d:OLEVariant;
begin
WebBrowser1.Navigate(Edit1.Text,a,b,c,d);
end;
procedure Tweb.SpeedButton2Click(Sender: TObject);
begin
WebBrowser1.GoBack;
end;
procedure Tweb.SpeedButton3Click(Sender: TObject);
begin
WebBrowser1.GoForward;
end;
procedure Tweb.SpeedButton4Click(Sender: TObject);
begin
WebBrowser1.GoHome;
end;
procedure Tweb.FormCreate(Sender: TObject);
var
a,b,c,d:OLEVariant;
begin
WebBrowser1.Navigate(Edit1.Text,a,b,c,d);
end;
procedure Tweb.WebBrowser1TitleChange(Sender: TObject;
const Text: WideString);
begin
Edit2.Text:=Text;
end;
procedure Tweb.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
Edit1.Text:=URL;
ShowMessage('gstedigin URL Yuklendi.');
end;
end.
|
|
|
Konu Sayısı: 25
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
|
|
Yetkileriniz
|
Yeni Mesaj yazma yetkiniz Aktif değil dir.
Mesajlara Cevap verme yetkiniz aktif değil dir.
Eklenti ekleme yetkiniz Aktif değil dir.
Kendi Mesajınızı değiştirme yetkiniz Aktif değildir dir.
HTML-KodlarıKapalı
|
|
|
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 19:46 .
| |