| Nybon | Дата: Пятница, 09.03.2012, 06:29 | Сообщение # 1 |
|
Ранг 1
Группа: Пользователи
Сообщений: 2
Награды: 0
Репутация: 0
Статус: Offline
| Вот создал веб браузер на движке от Експловера когда заходиш в гугл ищеш что то потом нажимаеш на ссылку открывается новое окно но оно с експловера скажите как сделать чтоб открывалось окно моего браузера и еще одно когда где угодно ищещ не меняется адрес тоесть ты зашол на google.ru напечатал чтото ищеш а адрес не меняется подскажите как ето исправить??
КОД
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ToolWin, OleCtrls, SHDocVw, ImgList;
type
TForm1 = class(TForm)
wb1: TWebBrowser;
clbr1: TCoolBar;
tlb1: TToolBar;
cbb1: TComboBox;
btn1: TToolButton;
btn2: TToolButton;
btn3: TToolButton;
btn4: TToolButton;
btn5: TToolButton;
btn6: TToolButton;
btn7: TToolButton;
dlgSave1: TSaveDialog;
stat1: TStatusBar;
pb2: TProgressBar;
il1: TImageList;
procedure cbb1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure btn4Click(Sender: TObject);
procedure btn6Click(Sender: TObject);
procedure btn5Click(Sender: TObject);
procedure btn7Click(Sender: TObject);
procedure wb1StatusTextChange(Sender: TObject; const Text: WideString);
procedure wb1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.cbb1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=vk_return then
wb1.Navigate(cbb1.Text);
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
wb1.GoHome
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
If dlgSave1.Execute then
begin
Wb1.Navigate(dlgSave1.FileName);
Cbb1.Text:=dlgSave1.FileName;
end;
end;
procedure TForm1.btn3Click(Sender: TObject);
begin
wb1.GoBack;
end;
procedure TForm1.btn4Click(Sender: TObject);
begin
wb1.GoForward;
end;
procedure TForm1.btn6Click(Sender: TObject);
begin
Wb1.Stop;
end;
procedure TForm1.btn5Click(Sender: TObject);
begin
wb1.Refresh;
end;
procedure TForm1.btn7Click(Sender: TObject);
var
PostData,Headers:OleVariant;
begin
wb1.ExecWB(OLECMDID_PRINT,OLECMDEXECOPT_DODEFAULT,PostData,Headers);
end;
procedure TForm1.wb1StatusTextChange(Sender: TObject;
const Text: WideString);
begin
stat1.SimpleText:=Text;
end;
procedure TForm1.wb1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
begin
pb2.Max:=ProgressMax;
pb2.Position:=Progress;
end;
end.
Сообщение отредактировал Nybon - Пятница, 09.03.2012, 06:30 |
| |
| |
