VPF::Браузер в дельфи - Форум программистов

Hellen

Дата 7.1.2009, 21:01 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 168
Регистрация: 3.7.2006
Где: Москва

Репутация: 1
Всего: 3

Новая страница открывается виндусовским експлорером.
как сделать чтобы новая страница открывалась в этомже окне самодельного експлорера??

treem

Дата 13.1.2009, 13:20 (ссылка)

(голосов:3)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 5.8.2008

Репутация: -1
Всего: -2

сматри drkb...там есть...качать здесь http://www.drkb.ru/ ...придётся создать отдельную форму...

Rrader

Дата 13.1.2009, 16:17 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 18
Всего: 191

Код


unit Unit1;

interface

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

type
  TWebBrowser = class(SHDocVw.TWebBrowser)
  protected
    procedure InvokeEvent(DispID: TDispID; var Params: TDispParams); override;
  end;

  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://google.com');
end;

{ TWebBrowser }

procedure TWebBrowser.InvokeEvent(DispID: TDispID;
  var Params: TDispParams);
var
  URL: WideString;
  ParamCount, I: Integer;
  VarArray: TVariantArray;
begin
  inherited;
  { void NewWindow3(IDispatch **&ppDisp, VARIANT_BOOL *&Cancel,
      DWORD dwFlags, BSTR bstrUrlContext, BSTR bstrUrl); }
  if DispID = $111 then
  begin
    ParamCount := Params.cArgs;
    SetLength(VarArray, ParamCount);
    for I := Low(VarArray) to High(VarArray) do
      VarArray[High(VarArray) - I] := OleVariant(Params.rgvarg^[I]);
    { bstrUrl }
    URL := VarArray[4];
    if URL  <> '' then
    begin
      { Cancel }
      WordBool((TVarData(VarArray[1]).VPointer)^) := True;
      Navigate(URL);
    end;
  end;
end;

end.

Это сообщение отредактировал(а) Rrader - 13.1.2009, 16:18

--------------------

Let's do this quickly!
Rest in peace, Vit!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »