Foros Club Delphi - Ver Mensaje Individual - Problemas al Cachar cuando se presion Shift+Flecha Arriba/Abajo

[egostar] · #4 10-08-2006

Si que está raro porque acabo de poner el ELSE en el código y si funciona,

Código Delphi [-] 
  if (ssShift in Shift) and (Key = 38) then
     ShowMessage('Shift + Flecha Arriba Presionado')
  else
  if (ssShift in Shift) and (Key = 40) then
     ShowMessage('Shift + Flecha Abajo Presionado');

no use IF anidados porque no lo crei necesario, sin embargo lo importante es que te haya servido.

Saludos