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

名前

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

本文 こんにちは． monaaさんが具体的なコードを提示していますので，ついでに． 前の参考ページのコードよりも，monaaさんのコードをお勧めします． if IsChild(WebBrowser1.Handle, Msg.hwnd) と Handled := (IOleInPlaceActiveObject... だけで判断しておいたほうが，ブラウザしている他のコントロールやブラウザ(TWebBrowser自身) のキー操作が保障されます．これは，前出のコードとmonaaさんのコードの両方をいろいろテストして みると分かります． monaaさんのコードを見ると ApplicationEvents1: TApplicationEvents; というのが，いわゆる「特殊な領域」にあります． これは，コンポーネントをこのフォームに配置してあるということです． このコンポーネントはTApplicationEventsです． 「Delphiの特殊領域」の参考記事 http://mrxray.on.coocan.jp/Delphi/Others/A_UltraIntro01.htm#03 それから，前出のコードにある以下のコードはDelphi2010では必要ありません． Delphiが自動的にやってくれます(monaaさんのコードにもありません)． >initialization > OleInitialize(nil); >finalization > OleUninitialize; それと，私がテストしたのは，TEmbededWBというコンポーネントです． http://mrxray.on.coocan.jp/Delphi/plSamples/940_TWebBrowserAndIE.htm#08 テストした具体的なコードは以下です．これだけのコードです． procedure TForm1.Button1Click(Sender: TObject); var StrURL : String; begin StrURL := 'http://search.chiebukuro.yahoo.co.jp/search/search.php?flg=3&fr=' + 'chie-search-t&p=delphi+TWebBrowser+%E6%94%B9%E8%A1%8C'; EmbeddedWB1.Navigate(StrURL); end; end. Mr.XRAY