酷难!!我现在实现了能拖放文件到listview，并且当拖放完成时，能获取当前鼠标下的item，可问题是当鼠标拖拽着文件浮动于listview上时，我

Question

酷难!!我现在实现了能拖放文件到listview，并且当拖放完成时，能获取当前鼠标下的item，可问题是当鼠标拖拽着文件浮动于listview上时，我希望它能热修追踪，当鼠标移动到那个节点时，节点自动选择，就象资源管理器那样，文件拖到某个目录附近时，该目录自动选中。
原码
unit Unit1;interfaceuses
  Windows, Messages,shellapi, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;type
  TForm1 = class(TForm)
    ListView1: TListView;
    procedure FormCreate(Sender: TObject);  private
      procedure ApponMessage(VAR Msg:TMsg;VAR Handled:Boolean);
   //   procedure WMDropFiles(VAR Msg: TWMDropFiles);message WM_DROPFILES;
    { Private declarations }
  public
    { Public declarations }
  end;