(Resolvido) como detectar as teclas Q e A pressionadas juntas?

[carloacpk]

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...

quando aperta A e Q junto mostra uma mensagem..

por favor, me ajudem.

[Daniel Sanches]

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 !!!

[carloacpk]

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 !!!

muito obrigado cara....funcionou sim...valeu mesmo....

vou postar um duvida sobre video fullscreen se possivel da + uma força...

[Churc]

só uma dica

quando a expressão é boolean não precisa fazer a comparação com if

exemplo

vKey[0] := (Key = 65);
vKey[1] := (Key = 81);
        if (vKey[0]) and (vKey[1]) then //teclas A+Q
        begin
                vKey[0]:= false;
                vKey[1]:= false;
                showmessage('oi');
        end;

abrxx