Como acionar uma rotina escondida dentro de um aplicativo
Olá...alguém saberia me informar como posso acionar uma rotina ´escondida´ dentro de um aplicativo através de um clique sobre um panel por exemplo, e este clique deve acionar a rotina escondida quando os botões CTRL+ALT estiverem segurados inclusive...
Um abraço...
Um abraço...
Alessandro_info
Curtidas 0
Respostas
Marcelo Saviski
29/08/2003
Verificar se uma determinada tecla está pressionada
Inclua na seção uses: Windows
{ Esta função retorna true se a tecla informada
estiver pressionada. False em caso contrário. }
function tbKeyIsDown(const Key: integer): boolean;
begin
Result := GetKeyState(Key) and 128 > 0;
end;
{ Exemplos de uso: }
if tbKeyIsDown(VK_CONTROL) then
{ Tecla Ctrl pressionada }
if tbKeyIsDown(VK_MENU) then
{ Tecla Alt pressionada }
if tbKeyIsDown(VK_SHIFT) then
{ Tecla Shift pressionada }
if tbKeyIsDown(VK_F2) then
{ Tecla F2 pressionada }
GOSTEI 0
Alessandro_info
29/08/2003
Eu consultei o site do MSDN(http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/userinput/keyboardinput/keyboardinputreference/keyboardinputfunctions/getkeystate.asp) e descobri essa função, só tem um problema acho q ali...
Pq essa função retorna 4 valores: 0 ou 1 para ligado e desligado, isto quando vc apenas digita ela, como se ligasse e desligasse, e -127 e -128 para teclas seguradas...
Muito Obrigado...
Um abraço...
Pq essa função retorna 4 valores: 0 ou 1 para ligado e desligado, isto quando vc apenas digita ela, como se ligasse e desligasse, e -127 e -128 para teclas seguradas...
Muito Obrigado...
Um abraço...
GOSTEI 0