喫茶XRAY [Mr.XRAY掲示板]

▼ Saraさん，どうも

> plExplorerFolderTreeにOnMouseEnterイベントを発生させるには、
> どうすればよいでしょうか？

http://mrxray.on.coocan.jp/Delphi/plSamples/947_ExplorerBrowsert.htm#03
ですよね．
これは，
http://msdn.microsoft.com/en-us/library/bb774328%28v=VS.85%29.aspx
のリストの，INameSpaceTreeControlCustomDrawインターフェイスを
使用しています．

インターフェイスのリストから，使えそうなのを調べて，そのインターフェイス
を実装することになります．
ただし，インターフェイスの組合せによっては，正常に機能しない場合があります．

今，ちょっとみたところでは，
INameSpaceTreeControlEvents:
http://msdn.microsoft.com/en-us/library/bb761567%28v=VS.85%29.aspx

が使えそうですね．ここの
OnItemClick MethodのnsctsFlags [in]に
Indicates which button was clicked and the kind of click.
One of the following values:
という説明があります．

サンプルでは，

  TplCNameSpaceTreeControlHost = class(TInterfacedObject,
                                       INameSpaceTreeControlCustomDraw)

となっていますから，

  TplCNameSpaceTreeControlHost = class(TInterfacedObject,
                                       INameSpaceTreeControlCustomDraw,
                                       INameSpaceTreeControlEvents)
として，このINameSpaceTreeControlEventsの定義のところを開いて，
([Ctrl]+クリックでShlObj.pasの定義のところを開く)
メソッド(関数類)を全て実装します．インターフェイスでは，必要な関数だけを
実装するということはできません．全てです．
戻り値は，とりあえず，Result := S_OK などとしておいて，
MSDNの英語の記事を解読しながら，作成していくことになります．