Web画面を左クリックで別タブで開くには。 (ID:37187)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

よろしくお願いします。環境はWindowsXP  sp3  Delphi6Personalです。
過去ログ「PageControlのページを削除するとエラーがでる」でママンさんが
回答されているタブブラウザの基本を元にタブブラウザを作成しています。
問題なく動くのですが、
どうしても解決できないことがあり質問いたしました。
Web画面のリンクを「左クリック」すると、たいてい同じ画面が更新して開きます。
これを毎回別タブで開きたいのですか、教えていただけないでしょうか。
NewWindow2は、リンクを「右クリック」で「新しいウィンドウで開く」なら別窓で開くのですが。
D６PersonalではTwebBrowserのヘルプ表示をしなくてプロパティにもイベントにもそれらしいのを発見できませんでした。
よろしくお願いします。
ソースコード（FormにPagecontrol１、Edit１、Button１を配置）
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls,  ExtCtrls, ComCtrls, StdCtrls, SHDocVw_TLB, ImgList;
type
  TIETabSheet = class(TTabSheet)
  public
    WebBrowser1 : TWebBrowser;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TComboBox;
    PageControl1: TPageControl;
    procedure Button1Click(Sender: TObject);

end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
{ TIETabSheet }
constructor TIETabSheet.Create(AOwner: TComponent);
begin
  inherited;
  WebBrowser1 := TWebBrowser.Create(self);//タブシートの作成と同時にブラウザ作成
  TOleControl(WebBrowser1).Parent := Self;
  WebBrowser1.Align               := alClient;
end;

destructor TIETabSheet.Destroy;
begin
  WebBrowser1.Free;
  inherited;
end;

{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
  IETab:TIETabSheet;
begin
  IETab :=  TIETabSheet.Create(PageControl1);
  IETab.Parent       := PageControl1;
  IETab.PageControl  := PageControl1;
  PageControl1.ActivePage := TTabSheet(IETab);

IETab.WebBrowser1.Navigate(Edit1.Text);
end;

←解決時は質問者本人がここをチェックしてください。

戻る