Código Das Teclas

[Vivendo&Aprendendo]

Olá pessoal...

Preciso do código das teclas abaixo:

Alt, Crtl, Shift, Tab, Delete, Esc. É para que o usuário não saia para o windows quando a aplicação estiver aberta... se houver outra forma me falam.

[Capablanca]

Olá,

Há duas formas de fazer referência à tecla: 1) pelo código ASCII; 2) pelo código VIRTUAL KEY.

Abaixo, o primeiro valor refere-se ao código ASCII e o segundo ao VIRTUAL KEY.

ALT:      #18     -     VK_Menu

CTRL:    #17     -     VK_Control

SHIFT:   #16     -     VK_Shift

TAB:      #9       -     VK_Tab

DELETE: #46     -     VK_Delete

ESC:      #27     -     VK_Escape

Se você quer, por exemplo, que apenas tenham algum efeito se o usuário digitar números (ou seja, se ele digitar qualquer coisa que não for um número nada ocorrerá), utilize o seguinte código:

   if not(key in ['0'..'9','.',',',#13]) then
      key := #0;

Neste exemplo, o usuário só poderá digitar números, o sinal de ponto (".") e o sinal de vírgula (","). Também será permitido a tecla ENTER (#13).

Abs.

[Progr'amador]

Olá amigo!

com esse código abaixo voce pode pegar o código do qualquer tecla.

Coloque dois TLabel em seu form e defina o propriedade KeyPreview do seu form como TRUE, e o código abaixo:

implementation

{$R *.DFM}


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Label1.Caption := Format('%d', [Key]);
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
Var
   X:String;
Begin
    X:=Label2.Caption;
    Label2.Caption:=AnsiUpperCase(X);
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
   Label2.Caption:= Key;
end;

falou!!!