Mike Lischke のVirtual Treeviewには、同じフォームでTWebBrowserコントロールを使用する際のバグを修正するための回避策コードが追加されています。

問題は、ユーザーが( TWebBrowserが派生する) TOleControlと対話しようとすると、最初のマウス クリックが食べられることでした。コントロールにフォーカスを与えるには、もう一度クリックする必要があります。次に、コントロールを操作できます。

彼は説明するコメントを持っています：

から派生したすべてのコントロールにTOleControlは、潜在的にフォーカスの問題があります。

クラスのテストを可能にするOleCtrlsユニット (特に、 Variantを含む) を含めることを避けるために、インターフェースがテストに使用されます。TOleControlIOleClientSiteTOleControl

完全なスニピットから:

問題は、回避策が機能しなくなったことです。正直なところ、問題が実際に何であったのか、彼のソリューションがどのようにそれを修正したのか、私にはわかりません。

彼のコメントが彼の言っていることを理解していることを知っていて、問題が何であるかを説明でき、彼がしていることはそれをどのように修正することになっていたかを知っている人はいますか?

ラップされた非 VCL コントロール (TWebBrowser など) の回避策。これらは VCL メカニズムを使用せず、ActiveControl プロパティを間違った状態のままにして、コントロールが再びフォーカスされるときに問題を引き起こします。TOleControl から派生したすべてのコントロールには、潜在的にフォーカスの問題があります。

コードは意図した範囲に到達しています

ステートメントですが、それはうまくいきません。

私はそれを修正したいと思いますが、彼がどのようにしてそれを見つけたのか、またはTOleControlが「VCL メカニズムを使用せず、ActiveControl プロパティを間違った状態のままにする」ことがどのように発生するのかわかりません。

ボーナスリーディング

私はもともと2008年に ニュースグループでこの質問をしましたborland.public.delphi.nativeapi.win32

Soft-Gems フォーラムに関する質問

バンプ 20110515 (12 か月後)

バンプ 20150401 (7 年後): まだ XE6 で動作しない

バンプ 20210309 (11 年後)

Web 開発コントロールをインストールせずに、Delphi 2010 に TWebBrowser を直接インストールする方法はありますか?

Delphi 2010 セットアップで Web 開発コントロール オプションを選択すると、TWebBrowser がインストールされます。しかし、この「パッケージ」は 200 MB を超えており、必要なのは TWebBrowser だけです。

TWebBrowser を Delphi 2010 Pro に直接インストールする方法はありますか?

ありがとう！

Delphi の TWebBrowser コンポーネントを使用して、ADS ドメインの外部から Sharepoint サーバーに接続するにはどうすればよいですか? ドメインにユーザー アカウントを作成しました。この情報を使用してサーバーに接続します。

次のコードは機能しません。

Basic-Auth を使用すると、同じ (機能しない) 結果になります。

プログラムでは一種のチャットウィンドウとしてTCppWebBrowserコンポーネントを使用していますが、TCppwebrowserはIExplorerengineを使用しているため、クリックされたすべてのリンクがIExplorerで開かれます。私が持っているアイデアの1つは、Onbeforenavigate2のナビゲーションをキャンセルしてShell.executeを実行することですが、Windowsメッセージやイベントなどのよりエレガントなソリューションを期待している場合です。

実行時に作成され、バックグラウンドで使用される TWebBrowser オブジェクトがあります。つまり、表示されません。問題は、OnDocumentComplete のようなイベントが機能しないか、Delphi2009 でトリガーされないことです。何かアドバイス？

Navigate と Navigate2 の間に重要な違いはありますか? ここで Cookie を有効にするにはどうすればよいですか?

前もって感謝します。

TWebBrowser を使用してロードされた Web ページのサイズ (文字またはバイト) を取得するにはどうすればよいですか? 読み込まれた Web ページの HTML コンテンツの長さとしての「サイズ」を意味します。

前もって感謝します。

Borland C ++ Builder 6.0のTCppWebBrowserコンポーネントを使用して、Webページで返されたデータにアクセスするにはどうすればよいですか？

http://edn.embarcadero.com/article/27519のサンプルを使用してデータを投稿することに成功しました 。

私はdelphi7を使用していますが、TWebBrowserに表示されるWebページから直接Webページに表示されるテキストのみを抽出したいと思います（画像なし....）。それはできますか？どうすればできますか？

TWebBrowser にモードレスの印刷ダイアログ ボックスを表示させる方法はたくさんありますが、モーダルな印刷ダイアログ ボックスを表示するにはどうすればよいでしょうか? HTMLページを印刷したいので、モーダルダイアログが必要です。

これに関するあなたのアイデアを本当に感謝します。

ありがとう！

背景: 私のフォームには TWebBrowser があります。フォームを ESC で閉じたいのですが、TWebBrowser がキーストロークを食べてしまうので、キーボード フックを使用することにしました。

問題は、フォームを同時に複数のインスタンスで開くことができることです。

何をしても、状況によっては、フォームの 2 つのインスタンスが開いている場合、そのうちの 1 つを閉じると、もう 1 つも閉じます。

サンプルコードをいくつか添付しました。問題の原因についてのアイデアはありますか?