怪问题,盼大虾指点!
我在一段程序中使用了 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的鼠标事件,结果依旧。
急盼高手指点!!