Foros Club Delphi - Ver Mensaje Individual - Detectar pulsación de tecla sin imprimirla en pantalla (sin Libreria conio)

JuanErasmo · #6 18-01-2008

Código:

void __fastcall TForm1::AppMessage(tagMSG &Msg, bool &Handled)
 {
 
   if (Msg.message == WM_HOTKEY)
   {
     //  if( (LOWORD(Msg.lParam) == MOD_SHIFT ) && (HIWORD(Msg.lParam) == 88) ){
         if( (LOWORD(Msg.lParam) == MOD_SHIFT ) && (HIWORD(Msg.lParam) == VK_F2) ){
          UnregisterHotKey(Application->Handle, GlobalAddAtomA("MiHotKeyXM"));
          keybd_event(VK_F2,0,0,0);