視覚スタイル
引き続き調査中でid:MAS3:20040922とは違う方法で挑戦。
IDocHostShowUIとIDocHostUIHandlerを継承して、GetHostInfo()でTDOCHOSTUIINFOのdwFlagsに$40000を設定すれば良さそうだということが分かりました。
IDocHostShowUIとIDocHostUIHandlerを継承して新しいコンポーネントを作るのはhttp://www.euromind.com/iedelphi/のEmbeddedWbやhttp://www33.ocn.ne.jp/~takoyakusi/のTUIWebBrowserのソースを参考にすればできそうですが、思いっきり車輪の再発明になるのでTUIWebBrowserを改造して使うことにしました。
TUIWebBrowserを使うことにして改造。UIWebBrowser.pasにFIeAutoCompleteと同じような感じで新しい変数を追加してみます。サンプルのプログラムを使って動かしてみるとうまくいきました。素晴らしい。
と、ここまでくるのに結構苦労したのですがDiamondback(Delphi 9)ではTWebBrowserが改良されるみたいなので、あっさりできるようになるのかも。