dec
01-07-2006, 00:03:27
Mediante el siguiente código podrás diferenciar los ENTER del teclado estandar y el numérico.
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;
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;