我想我没有说清楚-关于“怪问题，盼大虾指点！”

[pipimei]

对不起，我想我没有说明白。
在这个问题中，我不是要通过onchanging事件来实现拖动（拖动只需要设置dragemode和判断ondrager等事件）。
我的重点是要使用listview的onchanging事件。
再说的清楚点：
当对listview不作拖动处理时，在onchanging事件中显示消息框没有光标滞留的现象（好象伪发生了拖动现象，再点击一下鼠标则光标消失），反之则有，关键问题是怎样消除此时滞留的光标？
先谢谢了！！
-------------------------------------------------------

附：我的问题：
我在一段程序中使用了 ListView。因为要拖动ListView项目的缘故，将其Dragmode置为dmAutomatic。
在这个状态下如果使用ListView的onChanging事件：
procedure TForm1.ListView1Changing(Sender: TObject; Item: TListItem;
Change: TItemChange; var AllowChange: Boolean);
begin
if (change=ctstate) and (item.Focused) and (item.Selected) then
showmessage('something');
end;
下面是问题：
1、为什么消息框显示两次？
2、消息框关闭后，鼠标变为“禁止拖移”的样式并且滞留在屏幕上？
我尝试将DragMode设为DmManual并判断ListView的鼠标事件，结果依旧。
急盼高手指点！！

[barton]

用OnChanged事件即可.