Reconhecer teclas

[malereis]

Olá pessoal.

Procurei em muitos links, mas não achei nada.

Tenho 2 problemas.

1- Tenho uma rotina que detecta todas as teclas do PC, com exceção do TAB e PrintScreen.

As rotinas normais que encontrei, funcionam para tudas, menos essas duas teclas.

Já me disseram que o código do TAB é 9, (O printScreen, não sei) mas como fazer aparecer isso em um edit?

2- Precisava tb anular todas aquelas teclas de atalho, de som, volume, e-mail, internet, hiberna, etc, mas tb não achei nada a respeito.

Podem ajudar.

Grde abraço

Alexandre

[Jhonas]

exemplo

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if Key = VK_TAB then
    ShowMessage('A tecla TAB foi pressionada');

    if Key = VK_BACK then
    ShowMessage('A tecla Backspace foi pressionada');

    if Key = VK_SNAPSHOT then
    ShowMessage('A tecla Print Screen foi pressionada');
end;

obs: Se estiver testando as teclas diretamente no formulário, lembre-se de definir sua propriedade KeyPreview para true.

demais teclas, veja:

http://www.arquivodecodigos.net/arquivo/re...as_virtuais.php

abraço