我想我没有说清楚-关于“怪问题,盼大虾指点!”
对不起,我想我没有说明白。
在这个问题中,我不是要通过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的鼠标事件,结果依旧。
急盼高手指点!!