>
>>Tu peux répondre en anglais.
>Merci :)
>
>well, that's funny
>i just tried the following and it works perfectly :
>(and as u can see i added an additional level of sub-classing)
>
>
>PUBLIC ootform1
>
>SET CLASSLIB TO d:\vfptmp\ontime\class\otclasses.vcx ADDITIVE
>SET CLASSLIB TO d:\vfptmp\test.vcx ADDITIVE
>
>ootform1=CREATEOBJECT("otform1")
>ootform1.Show
>RETURN
>
>DEFINE CLASS otform1 AS otform
>
> DoCreate = .T.
> Name = "Otform1"
>
> ADD OBJECT texta1 AS texta WITH ;
> Height = 36, ;
> Left = 24, ;
> Top = 12, ;
> Width = 156, ;
> Name = "But11"
>
> ADD OBJECT texte1 AS texte WITH ;
> Height = 36, ;
> Left = 24, ;
> Top = 72, ;
> Width = 156, ;
> Name = "Texte1"
>ENDDEFINE
>
>DEFINE CLASS texte AS textbox
>
> Height = 23
> Width = 100
> Name = "texte"
>
> PROCEDURE DblClick
> wait window "double clique"
> ENDPROC
>
> PROCEDURE Click
> wait window "clique"
> ENDPROC
>
>ENDDEFINE
>
>DEFINE CLASS texta AS texte
>
> Name = "texta"
>
>ENDDEFINE
>
>

Ton exemple ma permis de trouver le problème :

PROCEDURE DblClick
wait window "double clique"
ENDPROC

J'avais mis "DbClick" a la place de "DblClick"

Merci