1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw, ComCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Panel1: TPanel;
ProgressBar1: TProgressBar;
Panel2: TPanel;
Search: TComboBox;
WebBrowser1: TWebBrowser;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure SearchClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure WebBrowser1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
procedure WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
procedure WebBrowser1NavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
procedure Image1Click(Sender: TObject);
procedure Image4Click(Sender: TObject);
procedure Image5Click(Sender: TObject);
procedure Image3Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
web:array of TWebBrowser;
tb:array of TTabSheet;
p:TPageControl;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
p:=TPageControl.Create(self);
with p do
begin
p.Align:=alclient;
parent:=panel1;
end;
setlength(tb,0);
setlength(web,0);
if FileExists(ExtractFilePath(application.ExeName)+'history.txt') then
Form1.Search.Items.LoadFromFile(ExtractFilePath(application.ExeName)+'history.txt');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
setlength(tb,length(tb)+1);
setlength(tb,length(tb)+1);
tb[length(tb)-1]:=TTabSheet.Create(self);
with tb[length(tb)-1] do
begin
Caption:=IntToStr(length(tb)-1);
align:=alclient;
tb[length(tb)-1].PageControl:=p;
end;
p.ActivePageIndex:=length(tb)-1;
setlength(web,length(web)+1);
web[length(web)-1]:=TWebBrowser.Create(self);
with web[length(web)-1] do
begin
Align:=alclient;
web[Length(web)-1].Navigate('http://ya.ru');
end;
tb[length(tb)-1].InsertControl(web[length(web)-1]);
end;
procedure TForm1.SearchClick(Sender: TObject);
var a:string;
begin
WebBrowser1.Navigate(search.Text);
a:=search.Text;
search.Items.add(a);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
search.Items.Add(WebBrowser1.LocationURL);
end;
procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
begin
progressbar1.Max:=progressMax;
progressbar1.Position:=progress;
end;
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var newform:TForm1;
begin
ppdisp:=WebBrowser1.DefaultDispatch;
newform:=Tform1.Create(Self);
newform.Show;
ppdisp:=newform.WebBrowser1.DefaultDispatch;
end;
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
search.Items.Add(WebBrowser1.LocationURL);
end;
procedure TForm1.Image1Click(Sender: TObject);
begin
WebBrowser1.GoBack
end;
procedure TForm1.Image4Click(Sender: TObject);
begin
WebBrowser1.GoForward
end;
procedure TForm1.Image5Click(Sender: TObject);
begin
WebBrowser1.Refresh
end;
procedure TForm1.Image3Click(Sender: TObject);
begin
WebBrowser1.Navigate(Search.Text);
end;
procedure TForm1.Image2Click(Sender: TObject);
begin
WebBrowser1.GoHome
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) then
end;
end. |