WebBrowserコンポーネント上のテキストコピーするには？

解決

たむたむ 2007-04-26 03:59:15 No: 25939

環境：WindowsXp、IE7、Delphi7

WebBrowserコンポーネントを貼り付けてウェブブラウザを作成しました。

表示されているテキストをマウスで反転させ、
「Ctrl+C」や「右クリック→コピー」を行っても、
クリップボードにテキストがコピーされません。

解決法ありましたら、ご教示お願いいたします。

おまじない 2007-04-26 04:46:20 No: 25940

uses ActiveX;
..........
..........

initialization
OleInitialize(nil);

finalization
OleUninitialize;
end.

もし、ご利益なければ…
WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_PROMPTUSER);

たむたむ 2007-04-27 05:35:57 No: 25941

ありがとうございます！！！
おまじない、効果ありました。

最初、↓をどこに書けば良いのかわからなかったのですが、
ググってみた所、Unit1の一番最後に付ければ良さそうなので、そうしました。
このコードが何を意味するのか、また勉強せねば^^;;

  initialization
    OleInitialize(nil);
  finalization
    OleUninitialize;
  end.

ありがとうございました〜(^-^)