2 Teclas Pressionadas
Olá Amigos, Vou Ser Direto
Como eu Faço Para executar uma função quando apertar 2 teclas ao mesmo tempo exemplo:
Shift + Ceta para esquerda
Atenciosamente Djonatas Tenfen
:shock: :shock: :shock:
Como eu Faço Para executar uma função quando apertar 2 teclas ao mesmo tempo exemplo:
Shift + Ceta para esquerda
Atenciosamente Djonatas Tenfen
:shock: :shock: :shock:
Djonatas
Curtidas 0
Respostas
Wolverine
30/01/2004
se for no menu use o propriedade ShortCut
GOSTEI 0
Carlosrm
30/01/2004
Djonatas,
(No evento OnKeyDown do form - pressionanando ShiftState (ssShift, ssCtrl, ssAlt...) e uma tecla válida ao mesmo tempo:
If (Shift = [ssShift]) and (key = 37) then
showmessage(´Pressionei Shift e Seta à Esquerda simultaneamente!´);
No lugar de showmessage vc coloca a chamada à sua função.
carlosrm.
(No evento OnKeyDown do form - pressionanando ShiftState (ssShift, ssCtrl, ssAlt...) e uma tecla válida ao mesmo tempo:
If (Shift = [ssShift]) and (key = 37) then
showmessage(´Pressionei Shift e Seta à Esquerda simultaneamente!´);
No lugar de showmessage vc coloca a chamada à sua função.
carlosrm.
GOSTEI 0