Как перехватить нажатия функциональных клавиш и стрелок?

Code:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

begin

if Key = VK_RIGHT then

   Form1.Caption := 'Right';

if Key = VK_F1 then

   Form1.Caption := 'F1';

end;

Code:

procedure TfmAbProps.edNameKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if (Key = vk_down) and

   not (ssAlt in Shift)

     {// здесь обработка для "выпадающих" окошек типа TRxDBCalcEdit} then

begin

   Key := 0;

   SelectNext(Sender as TWinControl, true, true);

end

else if Key = vk_up then

begin

   Key := 0;

   SelectNext(Sender as TWinControl, false, true);

end;

end;

Code:

OnKeyDown:=edNameKeyDown

Code:

procedure TfmAbProps.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if (ActiveControl is TRxDBLookupCombo) then

begin

   if Key = vk_down then

   begin

     if not (ssAlt in Shift) and not

       // здесь нельзя обработать нажатие при вызове "выпадающего"

     (ActiveControl as TRxDBLookupCombo).IsDropDown then

     begin // и в случае уже "выпвшего"

       Key := 0;

       selectnext(ActiveControl, true, true);

     end;

   end

   else if Key = vk_up then

   begin

     if not (ActiveControl as TRxDBLookupCombo).IsDropDown then

     begin

       Key := 0;

       selectnext(ActiveControl, false, true);

     end;

   end;

end;

end;

Code:

//Автор: Cheers, Julian (TeamB & TurboPower Software)

procedure WMGetDlgCode(var Msg : TMessage); message WM_GETDLGCODE;

 ...

 procedure TMyControl.WMGetDlgCode(var Msg : TMessage);

begin

Msg.Result := DLGC_WANTARROWS;

end;

Code:

procedure tForm1.HandleMessages(var Msg: tMsg; var Handled: Boolean);

begin

if (Msg.Message = WM_KeyDown) and

   (Msg.wParam in [VK_UP, VK_DOWN, VK_LEFT, VK_RIGHT]) then

begin

   case Msg.wParam of

     VK_UP: ShowMessage('Нажата стрелка вверх');

     VK_DOWN: ShowMessage('Нажата стрелка вниз');

     VK_LEFT: ShowMessage('Нажата стрелка влево');

     VK_RIGHT: ShowMessage('Нажата стрелка вправо');

   end;

   Handled := True;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Application.OnMessage := HandleMessages;

end;