Como faço para saber se a tecla shift está pressionada?

Delphi

13/09/2004

Quero saber se esta tecla está pressionado quando o usuário clicar no título de um DBGrid. Se ele der o clique sem pressionar a techa shift irá processar um código, se clicar no título com a tecla shift pressionada, processará outro código. Agradeço.


Eniosb

Eniosb

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

13/09/2004

se vc usar o [color=green:4cf843e6e0]onMouseDown[/color:4cf843e6e0], poderá verificar no ShiftState

if ssShift in ShiftState then {Shift pressionada}



GOSTEI 0
Eniosb

Eniosb

13/09/2004

Marcelo, o código que vc me passou retorna se o usuário pressionou o shift, preciso saber se o shift ainda está pressionado quando o usuário clicar no título do DBGrid. Ele pode pressionar o shift e soltar, neste caso, não serve para mim, só servirá para o procedimento quando o usuário estiver com o shift pressionado. Sabe como posso fazer? Obrigado.


GOSTEI 0
Tatuweb

Tatuweb

13/09/2004

  if GetKeyState (VK_SHIFT) <> 0 then ShowMessage (´Apertaram o Shift!´);



GOSTEI 0
POSTAR