combinação de teclas

Delphi

10/01/2004

olá pessoal,

gostaria de saber como é que eu faço para que quando eu apertar uma sequencia de taclas com o ALT precionado chame um form

ex: ALT + DHFGBC chame form2 ou 3.....

alguém poderia mostrar o código por favor

abrigado.


Awtb

Awtb

Curtidas 0

Respostas

Beppe

Beppe

10/01/2004

Postei código pra isso [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=27133]aqui[/url].

Se precisar de ajuda pra adaptar é só falar.


GOSTEI 0
Awtb

Awtb

10/01/2004

valeu cara muito obrigado por ter me mostrado este exemplo, mas desculpe minha inguinorância pois não entendi muito bem não, será que vc poderia mostrar um exemplo bem simples que faça isso:

quando eu digitar awtb com o ALT precionado no form1 chamar o form2.

valeu


GOSTEI 0
Nigro

Nigro

10/01/2004

procedure Tform1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If GetStateK (VK_Alt) And (Key = VK_A) Then
Form1.ShowModal;
end;


GOSTEI 0
Beppe

Beppe

10/01/2004

const 
  Chave = ´AWTB´; // em maíusculas 
var 
  Nivel: Integer; 

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); 
begin 
  if (GetKeyState(VK_ALT) <> 0) and (Chave[Nivel + 1] = UpCase(Key)) then 
  begin 
    Inc(Nivel); 
    if Nivel = Length(Chave) then Form2.Show; 
  end else 
    Nivel := 0; 
end;


Eu não testei isso no Delphi, mas deve funfa.


GOSTEI 0
POSTAR