* 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