como fazer p/ usar o pressionamento de duas teclas em Deplhi
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
Curtidas 0
Respostas
Rafael Roni
19/10/2003
Tem um componente na
www.torry.net
chamado sendkey que faz isso para vc
www.torry.net
chamado sendkey que faz isso para vc
GOSTEI 0
Adonis
19/10/2003
agradeco as ajudas acima...
GOSTEI 0