Identificar el Alt+R

[AGAG4]

Muchas Gracias Sr. Pablo Carlos, lo tomare en cuenta... Que tenga buen día.

[jackevil99]

Hola soy nuevo en esto estoy haciendo una aplicacion
pero quiero q se efectue una accion cuando presiono una combinacion de letras
como ejemplo alt + R o control +R con ese ejemplo lo tome pero no me
funciona que me falta agregarle? intennte con :

procedure TForm1.Edit1Change(Sender: TObject);
var Key: Word; Shift: TShiftState;R:char;
begin
if (Key = Ord('R')) and (ssAlt in Shift) then
edit1.Text:='3';
end;
end.

ayudnme porfavor ,

gracias.

[Lord Delfos]

Es que en el OnChange la cosa no anda, jackevil99.

La cosa funciona en el OnKeyDown, donde la variable Shift y Key ya vienen como parámetro.

Y, para agregar otra cosa más que hay que tener en cuenta (no te me enojes Román):

A Román se le escapó una cosa, con su código también vamos a enganchar la pulsación de Ctrl-Alt-R, Shift-Alt-R y Ctrl-Shift-Alt-R. Así que hay que tener cuidado...

Si se quiere detectar sólo la pulsación de Alt, y ninguna otra, la cosa sería así:

Código Delphi [-]
if (Key = Ord('R')) and ([ssAlt] = Shift) then
  HazAlgo;

Saludos.

[jackevil99]

Hola ,gracias por responder la verdad no pense q responderian xD q buenos son ,pero sabes me habia creado una aplicacion para gunbound y le puse como 1er plano o siempre visible como le llaman y me anda normal dentro del gunbound pero el detalle q se me minimiza el juego cuando le hago click ala aplicacion y ahora q le coloco el onkeydown pense q con teclas no tendria la necesidad de hacerle click pero me di con la sorpresa q necesita estar seleccionada la aplicacion para q me de resultado Y_Y

use if (Key = Ord('R')) and ([ssAlt] = Shift) then
HazAlgo;
y me corre bien thx pero se podria hacer digamos alt + R + 1 entoncs HazAlgo; ?


ayudenme porfavor,gracias de ante mano,saludos.