Combinaisons CTRL + C et wm_setshortkey
J'aimerais bien quelques conseils sur l'utilisation des short key.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
|
//Dans la form principale OnCreate
If not RegisterHotkey
(Handle, 1, MOD_CONTROL, Ord('C')) Then
ShowMessage('Unable to assign Ctrl-C as hotkey.') ;
//Dans la form principale
//procedure OnClose :
UnRegisterHotkey( Handle, 1 ) ;
//Déclaration
private // dans la déclaration de la form
Procedure WMHotkey( Var msg: TWMHotkey ) ;
message WM_HOTKEY;
Procedure TForm1.WMHotkey( Var msg: TWMHotkey ) ;
Begin
If msg.hotkey = 1 Then Begin
showmessage('test');
//sendmessage(Application.Handle, WM_SHORTKEY, makeWord(Ord('C'), HOTKEYF_CONTROL ), 0);
End; |
Lorsque je veux executer ce code il me dit qu'il ne connait pas HOTKEYF_CONTROL... Pourtant le prog est bon puisque le message "test"
apparait bien.
merci pour vos suggestions
ludo