Webbrowser yardım

[alikus]

Webbrowser ile açtığım bir web sayfasında bir linke tıklatığımda açılan
sayfanın yeni bir delphi formunda açılmasını nasıl sağlarım. Yardımlarınız
için teşekkürler.
Not: Örnek kod gönderirseniz çok iyi olur.

[Asri]

forma iki tane twebbrowser koy bir tanede buton
birince webbrowser da goolge.com çıkıcak orda tıkladığın link ikince webbrowser da çıkar.

sen bunu geliştirip diğer bir formda gösterebilirsin.

iyi çalışmalar.

Kod: Tümünü seç

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    WebBrowser2: TWebBrowser;
    procedure Button1Click(Sender: TObject);
    procedure WebBrowser1BeforeNavigate2(Sender: TObject;
      const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
      Headers: OleVariant; var Cancel: WordBool);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  FManuallyLoading:boolean;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  FManuallyLoading := True;
  WebBrowser1.Navigate('http://www.google.com');
  FManuallyLoading := False;

end;

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  if not FManuallyLoading then
  begin
    {Stop Loading in this Browser ...}
    Cancel := True;
    {... but open in new Browser}
    Flags := Flags or 1;
    webbrowser2.Navigate(WideString(URL));
  end;
end;

end.