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