Evénement("CapteClic1","*.*",WM_LBUTTONDOWN)
Evénement("CapteClic2","*.*",WM_LBUTTONUP)
Evénement("CapteClic3","*.*",WM_KEYUP)
ComboOuvre(Combo1)
PROCEDURE CapteClic1(Message, wParam, lParam):
RENVOYER 0
PROCEDURE CapteClic2(Message, wParam, lParam)
EnvoieTouche("{F12}",Handle(Fenetre1))
RENVOYER 0
PROCEDURE CapteClic3(Message, wParam, lParam)
nTouche est un entier = 0x7B //F12
SI wParam=nTouche ALORS
Trace("F12!!!!!!!!!!!!!!")
SINON
Trace("ce n'est pas F12")
FIN
PROCEDURE CapteClic2(Message, wParam, lParam)
RENVOYER 123
PROCEDURE CapteClic2(Message, wParam, lParam)
RENVOYER 0x7B
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=18&topic_id=5490&post_id=22581