0

私の Delphi 6 Pro プログラムでは、以下のコードを使用して TWebBrowser コンポーネントのカーソルを正常に変更できますが、有効な Web ドキュメントが含まれていない場合に限られます。

const
    theCursorID: integer = 1;

Screen.Cursors[theCursorID] := LoadCursorFromFile(PChar(theAniCursorFilename));
theWebBrowser.Cursor := theCursorID;

Web ドキュメントが読み込まれるとすぐに、カーソルは標準のマウス ポインターに戻ります。Web ドキュメントが読み込まれると、下にあるウィンドウ (ハンドル/キャンバスなど) が変更されるためだと思います。Web ドキュメントがロードされたときにマウス カーソルを正常に変更するにはどうすればよいですか?

4

1 に答える 1

1

TWebBrowserはIEのラッパーであり、ブラウザーで「ナビゲート」するために使用されるカーソルを含む、一貫したユーザーインターフェイスを表示することを忘れないでください。たとえば、読み込まれたWebページにハイパーリンクが含まれている場合は常に、カーソルが手の形に変わり、ユーザーがそのハイパーリンクをクリックできることを通知します。

Delphiからこの動作を変更する方法はわかりません。おそらくそれは可能です。ただし、ロードされたWebページを制御している場合（私にはそう思われます）、IEで（のみ）サポートされているため、カーソルの変更をそのページにコーディングできます。

.cssファイルを変更できない、または変更したくない場合は、ページのヘッダーに次のコードを配置します。

<style type="text/css">
<!--
BODY { cursor:url("<url of your cursor>"); }
-->

または、次のようにページ上の要素のスタイルを直接変更することもできます。

...<body style="cursor:url(<url of your cursor>)" >...
于 2010-09-23T16:36:02.937 に答える