掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
WebBrowserでリンクをIEではなく、作っているブラウザで新しいウィンドウで開くには？ (ID：9871)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>>先ほどのサイトから引用 >指定するウィンドウの型を自前のフォームに直してやってもIEが起動しなくなるだけでした… MDIでは作成したフォームがデフォルトで表示されるけれど、SDIではデフォルトで非表示なので… procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); begin with TForm1.Create(Application) do begin // 自前の新フォームで Top := TForm(TOLEControl(Sender).Parent).Top + 20; Left := TForm(TOLEControl(Sender).Parent).Left + 20; WebBrowser1.RegisterAsBrowser := True; ppDisp := WebBrowser1.DefaultDispatch; Show; // SDIでは Show が必要 end; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; // 作成したフォームは閉じる時に破棄 end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.