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

[egostar] · #2 10-08-2006

Usa esto, haber que te parece.

Código Delphi [-]procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; 
Shift: TShiftState);
begin
if (ssShift in Shift) and (Key = 38) then
ShowMessage('Shift + Flecha Arriba Presionado');
if (ssShift in Shift) and (Key = 40) then
ShowMessage('Shift + Flecha Abajo Presionado');
end;

Saludos.