Fórum como fazer p/ usar o pressionamento de duas teclas em Deplhi #189594
19/10/2003
0
Em Clipper eu posso simular o pressionamento de duas teclas simultaneas, como por exemplo:
tecla = Inkey(0)
if tecla = -39
? ´voce apertou: ALT + F10´
endif
No NG do clipper existe uma tabela de codigo de teclas, tais como exemplo:
SHIFT + F4 => 23 ou K_SH_F4,
ALT + O => 280 ou K_ALT_0,
etc.
em delphi eu só consigo uas as F1..F12 (VK_F1..VK_F12). O escape é VK_Escape.
Mais como simular em Deplhi o ALT + F10, como no exemplo clipper acima:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
case key of ???????: showmessage(´Voce apertou ALT + F10´); end;
end;
Diante mao já agradeco as ajudas...
tecla = Inkey(0)
if tecla = -39
? ´voce apertou: ALT + F10´
endif
No NG do clipper existe uma tabela de codigo de teclas, tais como exemplo:
SHIFT + F4 => 23 ou K_SH_F4,
ALT + O => 280 ou K_ALT_0,
etc.
em delphi eu só consigo uas as F1..F12 (VK_F1..VK_F12). O escape é VK_Escape.
Mais como simular em Deplhi o ALT + F10, como no exemplo clipper acima:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
case key of ???????: showmessage(´Voce apertou ALT + F10´); end;
end;
Diante mao já agradeco as ajudas...
Adonis
Curtir tópico
+ 0
Responder
Posts
20/10/2003
Rafael Roni
Tem um componente na
www.torry.net
chamado sendkey que faz isso para vc
www.torry.net
chamado sendkey que faz isso para vc
Responder
Gostei + 0
21/10/2003
Adonis
agradeco as ajudas acima...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)