Delphi はじめの一歩

タブブラウザを作る

<Lesson26> 完成

下記の処理をしないと、新しいウインドウを開こうとした時に、IEが起動してしまいます。
そうならない為の処理です。
すみませんが、ppDispが何なのかよく分かってないので解説は無しです。

[IEWindow　WebBrowser1　OnNewWindow2イベント]

procedure TIEWindow.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  Child:TIEWindow;
begin
  Child := TIEWindow.Create(Application);
  ppDisp := Child.WebBrowser1.Application;
end;

下記はLesson11 、Lesson12 と同様の処理です。

[IEWindow　WebBrowser1　OnNavigateComplete2イベント]

procedure TIEWindow.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  MainForm.Edit1.Text := WebBrowser1.LocationURL;
end;

[IEWindow　WebBrowser1　OnStatusTextChangeイベント]

procedure TIEWindow.WebBrowser1StatusTextChange(Sender: TObject;
  const Text: WideString);
begin
  StatusBar1.SimpleText := Text;
end;

これで完成です。
これにブックマークを付けたりしていけば、本格的なタブブラウザが作れます。

>> Indexに戻る