Abrir Form Precionando Várias teclas ao mesmo tempo!

[andreyixo 0]

Gostaria de seber como Abri um Form se o usuário precionar ((CTRL + ALT) + NUMPAD0)

atualmente meu código está assim..

 

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_CONTROL then begin
    TForm2.Show;
  end;
end;

ou seja, apenas apertando CTRL, mas quero que seja apertando ((CTRL + ALT) + NUMPAD0)

 

Obrigado.

[Daniel Sanches 0]

um exemplo:

 

        if ssCtrl in Shift then
                if ssAlt in Shift then
                        if Key = Key_0 then
                                showmessage('Ctrl + Alt + 0');

 

abraços