TWebBrowser仕様時のHTMLテキストエリア内の改行 (ID:38474)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Mr.XRAY様ご回答ありがとうございます、以下を試してみましたがエラーが でてしまいます、基本的なことかもしれませんがご指導宜しくお願いします。 まずTMainFormにApplicationEventsを配置、その後 以下をMAINFormにいれてみたところ、、、 ---------------------------------------------------------- FOleInPlaceActiveObject:IOleInPlaceActiveObject; の FOleInPlaceActiveObject 部分と ---------------------------------------------------------- if Msg.message = WM_KEYDOWN then の Msg.message の部分が赤下線になってしまいます。 ---------------------------------------------------------- 環境は以下です。 WinXP SP3 delphi2010 「コピー」の動作不良 以下のコードをユニットの最後部に書く必要があります。 initialization OleInitialize(nil); finalization OleUninitialize; //引用原文 //TMainFormにApplicationEventsを配置したとします。 //WebBrowser1.: TWebBrowser; procedure TMainForm.AppMessages(var Msg: tagMSG; var Handled: Boolean); var FOleInPlaceActiveObject: IOleInPlaceActiveObject; Re: HRESULT; begin if Msg.message = WM_KEYDOWN then begin //WebBrowserにメッセージが送られてきたかを判定 if IsChild(WebBrowser1.Handle, Msg.hwnd) then begin FOleInPlaceActiveObject := WebBrowser1.ControlInterface as IOleInPlaceActiveObject; //メッセージをアクティブなWebBrowser(の子ウインド)に転送 Re := FOleInPlaceActiveObject.TranslateAccelerator(Msg); if Re = S_OK then Handled := True else Handled := False; end end //自分で編集したもの procedure TForm1.FormCreate(Sender: TObject); FOleInPlaceActiveObject:IOleInPlaceActiveObject; Re : HRESULT; begin // main if Msg.message = WM_KEYDOWN then begin // WebBrowserにメッセージが送られてきたかを判定 if IsChild(WebBrowser1.Handle, Msg.hwnd) then begin FOleInPlaceActiveObject := WebBrowser1.ControlInterface as IOleInPlaceActiveObject; // メッセージをアクティブなWebBrowser(の子ウインド)に転送 Re := FOleInPlaceActiveObject.TranslateAccelerator(Msg); if Re = S_OK then Handled := True else Handled := False; end end end;