Combinação de teclas, por favor

Delphi

04/07/2009

pessoal por favor, meu emprego depende disso

preciso criar um programa, ta quase pronto

so preciso saber como faço para o delphi identificar quando pressiono as teclas A e Q ao mesmo tempo..

tipo...

qdo aperta A e Q junto mostra uma mensagem..

por favor, me ajudem.


Carloacpk

Carloacpk

Curtidas 0

Respostas

Danielrsanches

Danielrsanches

04/07/2009

segue uma dica aí ...

1. crie uma variável pública (vKey) ...
2. use os eventos OnKeyDown e OnKeyUp, como segue abaixo ...

var
  Form1: TForm1; vKey: array[0..1] of boolean;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
        if Key = 65 then vKey[0]:= true;
        if Key = 81 then vKey[1]:= true;
        if (vKey[0] = true) and (vKey[1] = true) then //teclas A+Q
        begin
                vKey[0]:= false;
                vKey[1]:= false;
                showmessage(´oi´);
        end;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
        if Key = 65 then vKey[0]:= false;
        if Key = 81 then vKey[1]:= false;
end;



post aki se deu certo ...

abraços !!!


GOSTEI 0
Carloacpk

Carloacpk

04/07/2009

danielrsanches...

Muito obrigado mesmo cara,
não sabe como me ajudou nessa, valeu...tudo de bom pra ti.


GOSTEI 0
POSTAR