webbrowserで表示中のソースにコードを挿入するには

解決

宮 2007-07-22 03:15:06 No: 27145

環境はDelphi 6 Personalです。
WebBrowserに表示している画面を
次のコードで
//編集モードにする
procedure TForm1.SetDesignMode(Value: Boolean);
var
HTML: IHTMLDocument2;   //uses節にmshtml_TLB ,が必要
begin
      HTML := WebBrowser1.Document as IHTMLDocument2;
      HTML.designMode := 'On'
end;
で編集可能状態にして。
カーソル位置のソースに＜Br＞（実際は半角）をいれて
ソース上に改行コードを挿入したいのですが可能でしょうか。
解決方法を教えてくださいませんか。

過去ログに下記の例がありますが

//文字を挿入する
procedure TForm1.Button2Click(Sender: TObject);
var
  tmp:OleVariant;
begin
  Clipboard.AsText := Edit1.Text;
  WebBrowser1.ExecWB(OLECMDID_PASTE,
    OLECMDEXECOPT_DONTPROMPTUSER ,
    tmp,
    tmp);
end;
これは、画面上に文字を挿入する例でした。

よろしくお願いします。

シフトしてソレを挿入 2007-07-22 20:51:33 No: 27146

カーソル位置のソースに<BR>文字列を入れてもタグとは解釈されず、
Enterキーでは、改行されるように見えても実際は<P>タグのサンドイッチで
「段落」の挿入となてしまう。
なので、<BR>挿入はShift+Enter。

宮 2007-07-25 02:19:16 No: 27147

シフトでそれを挿入さんありがとうございました。
そのごいろいろやってみたのですがだめでした。
Microsoftの FrontPageでやるようにできないかと考えました。
ありがとうございました。