Duas Teclas ao mesmo tempo
Olá!
Estou fazendo uma aplicação e gostaria de saber como faço para que nela aperte duas teclas ao mesmo tempo.. obrigado!!!
Estou fazendo uma aplicação e gostaria de saber como faço para que nela aperte duas teclas ao mesmo tempo.. obrigado!!!
Guirro
Curtidas 0
Melhor post
Carlosrm
31/08/2003
koplin,
só para aumentar a variedade de exemplos:
(No evento OnKeyDown - pressionanando ShiftState (ssShift, ssCtrl, ssAlt...) ao mesmo tempo:
(coloque a propriedade KeyPreview do formulário em True) e no evento OnKeyDown do mesmo formulário codifique:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If (Shift = [ssAlt]) and (key = 65) then
Showmessage(´Foram pressionadas simultaneamente as teclas ALT e A´);
end;
Isso funciona se vc mantiver uma tecla pressionada e (sem liberar a primeira), pressionar também a segunda. Se procurar mais, verá que há outras alternativas também.
carlosrm
só para aumentar a variedade de exemplos:
(No evento OnKeyDown - pressionanando ShiftState (ssShift, ssCtrl, ssAlt...) ao mesmo tempo:
(coloque a propriedade KeyPreview do formulário em True) e no evento OnKeyDown do mesmo formulário codifique:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If (Shift = [ssAlt]) and (key = 65) then
Showmessage(´Foram pressionadas simultaneamente as teclas ALT e A´);
end;
Isso funciona se vc mantiver uma tecla pressionada e (sem liberar a primeira), pressionar também a segunda. Se procurar mais, verá que há outras alternativas também.
carlosrm
GOSTEI 1
Mais Respostas
Koplin
30/08/2003
Um exemplo para control+F2
If (GetKeyState(VK_CONTROL)) and ($1000000)<>0 then
If key+VK_Control Then faça algo...
Coloque isso no evento onkeydown do formulário ou do componente
Dica: Na unit Windows tem o mapa do teclado
If (GetKeyState(VK_CONTROL)) and ($1000000)<>0 then
If key+VK_Control Then faça algo...
Coloque isso no evento onkeydown do formulário ou do componente
Dica: Na unit Windows tem o mapa do teclado
GOSTEI 0