I can reproduce this problem. There is definitely something going on when you go into the wait state of the MessageBox. One thing to try is to add some custom properties to the ListView called ItemHasBeenClicked and LastNodeClicked . In the ItemClick, set the itemhasbeenclicked property to .T. and take the passed item property and assign it to the LastNodeClicked Property. Then, In the Click, check to see if the ItemHasBeenClicked property is true. If it is true, set it back to false and work with the LastNodeClicked Object Property.


>Hello All.
>Help please to resolve the problem.
>As soon as in ItemClick I insert MESSAGEBOX for me Item begins to be dragged on all list at movement of the mouse (WHY !! %-0).
>In ItemClick I check the data and if after check the data do not satisfy to a condition I remove it. MESSAGEBOX with inquiry about deleting of the data.
>I specially have written PRG which illustrates the usual situation. Is possible another solution for this problem ?
>Thanks.
>Denis
>
>****** TEST.PRG ***********
>PUBLIC oform1
>
>oform1=CREATEOBJECT("form1")
>oForm1.ADDOBJECT('Olecontrol1', 'ocxlist','COMCTL.ListViewCtrl.1')
>oform1.Show
>RETURN
>
>*-- BeginDefine ocxlist
>DEFINE CLASS ocxlist AS olecontrol
>
> Top = 12
> Left = 12
> Height = 204
> Width = 312
> Name = "Olecontrol1"
> Visible = .t.
>
> PROCEDURE ItemClick
> *** OLE Control Event *** PROBLEM !!!!!!!!!!!
> LPARAMETERS item
> =MESSAGEBOX("Test situation")
> ENDPROC
>
> PROCEDURE Init
> LPARAMETERS lp
> FOR i = 1 TO 10
> cKey = "_"+ALLTRIM(STR(i))
> oListX = THIS.ListItems.ADD(,cKey,"Number = "+ALLTRIM(STR(i)))
> ENDFOR
> ENDPROC
>
>ENDDEFINE
>*-- EndDefine: ocxlist
>
>*--BeginDefine: form1
>DEFINE CLASS form1 AS form
> DoCreate = .T.
> Caption = "Form1"
> Name = "Form1"
>ENDDEFINE
>*-- EndDefine: form1