Delphi6 で UIWebBrowser のインストールと WYSIWYG エディタ化の最初の一歩

『TUIWebBrowser』は 由木尾晃氏作の IE コンポーネント。Delphi6 標準装備の TWebBrowser よりも高機能＆バグフリー。
http://www33.ocn.ne.jp/~takoyakusi/delphi/UIWebBrowser/

■インストール

環境: Delphi6 Pro SP2, Windows XP SP1

そのままやったらダメだったので、UIWebBrowser のすべてのユニットの「MSHTML_TLB」を「MSHTML」に置換したらコンパイルは通った。でも、正しいかどうかは不明。

■WYSIWYGエディタ化のTIPS

エディタモードへの移行

var
  Doc: IHTMLDocument2;
begin
  Doc := (IE.Document as IHTMLDocument2);
  Doc.designMode := 'on';
end;

ドキュメントの ソースを得る

var
  Doc: IHTMLDocument3;
  S: string;
begin
  Doc := (IE.Document as IHTMLDocument3);
  S := Doc.documentElement.outerHTML;
end;

ドキュメントのソースを変更する

var
  Doc: IHTMLDocument2;
begin
  Doc := (IE.Document as IHTMLDocument2);
  Doc.body.innerHTML := S;
end;

まだまだ道のりは遠いが、最近この辺に興味があるので記しておく。

[広告]『Delphiオブジェクト指向プログラミング』 オブジェクト指向入門の名著