Q tal, disculpa si la respuesta q doy esta incompleta la verdad es q ando un poco lleno de trabajo, pero para empezar este codigo te debe servir, lo primero q necesitas es capturar cuando el usuario presiona una de las dos teclas q necesitas, para hacerlo existen muchas formas pero personalmente prefiero esta por q es muy sencilla. Para iniciar debes crear un procedimiento en el form q te permita capturar los mensajes de la aplicacion...
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
procedure ApplicationMessage(var Msg: TMsg; var Handled: Boolean);
public
{ Public declarations }
end;
el codigo del procedimiento es el siguiente:
procedure TForm1.ApplicationMessage(var Msg: TMsg;
var Handled: Boolean);
begin
case Msg.Message of
WM_KEYUP: // si deseas q se ejecute al presionar y no al levantar la tecla cambias por WM_KEYDOWN =P
if Msg.wParam = 13 then
Showmessage('Presionaste Entrar');
end;
end;
simplemente debes conocer el valor entero de las teclas q deseas capturar, haciendo unas modificaciones al codigo podras saberlos tu mismo =)
para terminar debes asignar el procedimiento a la aplicacion en el evento OnCreate del Form:
procedure TForm1.FormCreate(Sender: TObject);
begin
application.OnMessage:= ApplicationMessage;
end;
IMPORTANTE: debes asignar nil al mismo evento en el OnDestroy del Form o te llevaras malas sorpresas... XD
procedure TForm1.FormDestroy(Sender: TObject);
begin
Application.OnMessage := nil;
end;
espero te sirva para iniciar...
Salu2
