How to disable Shift F10

How can I capture Shift F10 and disable it.
moonriseAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
umitdeConnect With a Mentor Commented:
try use TForm on KeyDown events;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssShift in Shift) AND (Key = VK_F10) then Key := 0;

end;
0
 
XANCommented:
try use TApplicationEvents and somthing like this in OnMessage handler:
with Msg do
  if (Message = WM_SysKeyDown) and
    (wParam = 00000079) and
    (lParam = 00440001) then
  Handled := True;

0
 
moonriseAuthor Commented:
Thnk you both. Probably 2 working solutions but using FormKeyDown seems easier.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.