linkedin facebook linkedin facebook nod32

Delphi da internet brauzerni yaratish usuli

Muallif: Mengliyev Sh.

Qo`shilgan sana: 2014-10-29

Delphi dasturlash tilida Internet brauzerni yaratish usuli


Quyida Internet brauzer dizayni delphi da yaratib olingan

Dastur kodi
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, OleCtrls, SHDocVw;

type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
Edit1: TEdit;
BitBtn6: TBitBtn;
WebBrowser1: TWebBrowser;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
WebBrowser1.GoBack
end;

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

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
WebBrowser1.GoSearch
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
WebBrowser1.GoHome
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
WebBrowser1.Refresh
end;

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
WebBrowser1.Navigate(Edit1.Text);
end;

end.

2025 marta o`qildi.

Parol:
Eslab qolish.


Ro`yhatdan o`tish

testing

+998915878681

Siz o`z maxsulotingizni 3D reklama ko`rinishda bo`lishini xohlaysizmi? Unda xamkorlik qilamiz.

3D Reklama


Рейтинг@Mail.ru
Рейтинг@Mail.ru

Besucherzahler
счетчик посещений