Como saber se pressionei quot;Ctrl Gquot; ??

Question

Preciso saber se o usu�rio pressionou Control G.Algu�m pode me ajudarPedro - SP...

Anorex · Answer

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If (Shift = [ssCtrl]) And (Key = 71) Then
Label1.Caption := �Certo�
Else
Label1.Caption := �Errado�;
end;

Namerda · Answer

TENTE ISTO :

EVENTO DO COMPONENTE TTIMER :
PONHA A PROPRIEDADE INTERVAL PARA + OU - 50 ...

BOA SORTE...

procedure TForm1.Timer1Timer(Sender: TObject);
begin
IF (getkeystate(VK_Control) < 0) AND (getkeystate(ord(�G�)) < 0) THEN
SHOWMESSAGE(�PROSSIONOU�);
end;

� MEIO FEIO MAS FUNCIONA...

Namerda · Answer

A MINHA DICA FUNCIONA MESMO QUE O TEU PROJETO ESTEJA MINIMIZADO......

F�rum Como saber se pressionei quot;Ctrl Gquot; ?? #196382