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

←解決時は質問者本人がここをチェックしてください。

戻る