General information
Category:
Coding, syntax & commands
Title:
ListView ActiveX .. HELP PLEASE !
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
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only