Como averiguar el codigo ascii de una tecla pulsada en el form y como simular la pulsacion de otra

Por Saiyine  el 2001-01-01 00:00:00 - Secciones:  DELPHI  - Enlace permanente: 442

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  ShowMessage('Tecla pulsada: '+inttostr(ord(key)));
end;

No olvidar poner la propiedad keypreview del form a true.

procedure TForm1.Button4Click(Sender: TObject);
var
  aux : char;
begin
  aux:=chr(VK_RETURN);
  FormKeyPress(sender,aux);
end;

VK_RETURN es el codigo del enter, para la lista completa, busca en la ayuda del Delphi.

Anonimo (02/08/2005, 21:16) ??????????

859 

Anonimo (2007-01-17 08:37:55)

1196 

Anonimo (2007-05-17 10:55:17) h

1758 

Anonimo (2008-01-24 12:32:57)

1759 

Anonimo (2008-01-24 12:33:38)

1878 

Anonimo (2008-02-20 04:27:14)

2011 

Anonimo (2008-03-26 08:52:57) y esta locura

2200 

Anonimo (2008-05-05 05:17:09) HOLA O :P

2519 

Anonimo (2008-07-22 04:24:52)