Comment détecter ctrl-t keypress dans Delphi

Question

J'ai un formulaire Win32 avec un contrôle TEdit. Lorsque l'utilisateur appuie sur CTRL-t alors que le contrôle TEdit est actif, je veux le détecter en utilisant l'événement OnKeyUp. J'ai besoin d'un exemple de code, s'il vous plaît, en utilisant les variables Key et/ou Shift. Merci.

Answer 1

Set KeyPreview de la forme sur True, écrire ce code pour l'événement OnKeyUp de votre formulaire:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); 
begin 
    if (Key = 84) and (Shift = [ssCtrl]) then 
    ShowMessage('Ctrl+t is pressed!'); 
end;