Здравствуйте, Гость
Среда, 20.09.2017, 04:27
Главная Главная страница форума Регистрация Вход
Новые сообщения Участники форума Правила форума Поиск
Страница 1 из 11
Модератор форума: stalker, Ekz 
Форум » Все о Delphi » Ваши программы » WebBrowser
WebBrowser
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
 
Форум » Все о Delphi » Ваши программы » WebBrowser
Страница 1 из 11
Поиск:

Copyright DelphiDevelop.ru © 2008-2017
Хостинг от uCoz