Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Trucos (https://www.clubdelphi.com/foros/forumdisplay.php?f=52)
-   -   Diferencias entre los ENTER del teclado estandar y el numerico (https://www.clubdelphi.com/foros/showthread.php?t=80654)

dec 01-07-2006 00:03:27

Diferencias entre los ENTER del teclado estandar y el numerico
 
Mediante el siguiente código podrás diferenciar los ENTER del teclado estandar y el numérico.

Código Delphi [-]
procedure TForm1.WMKeyDown(var Message: TWMKeyDown);
begin
  inherited;
   case Message.CharCode of
     VK_RETURN: begin    // ENTER pressed
         if (Message.KeyData and $1000000 <> 0) then  // Test bit 24 of lParam
            begin
            // ENTER on numeric keypad

            end
         else
            begin
            // ENTER on the standard keyboard

            end;
        end;
   end;
end;


La franja horaria es GMT +2. Ahora son las 13:29:05.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi