* Pourquoi le double clique sur "TEXT1" ne fontionne pas alors que le double clique sur "TEXT2" fonctionne???
* Le simple clique fonctionne sur "TEXT1" et "TEXT2"
PUBLIC oform1
oform1=CREATEOBJECT("form1")
oform1.Show()
RETURN
DEFINE CLASS form1 AS form
Top = 0
Left = 0
Caption = "Form1"
Name = "Form1"
ADD OBJECT text1 AS texte WITH ;
Height = 21, ;
Left = 60, ;
Top = 100, ;
Width = 165
ADD OBJECT text2 AS textbox WITH ;
Height = 21, ;
Left = 60, ;
Top = 208, ;
Width = 165
PROCEDURE text2.DblClick
WAIT WINDOW "Double clique textbox"
ENDPROC
PROCEDURE text2.Click
WAIT WINDOW "Clique textbox"
ENDPROC
ENDDEFINE
DEFINE CLASS texte AS textbox
PROCEDURE dbclick
WAIT WINDOW "Double clique texte"
ENDPROC
PROCEDURE Click
WAIT WINDOW "Clique texte"
ENDPROC
ENDDEFINE