Delphi'de ctrl-t tuşunun nasıl algılanacağı

Question

Bir TEdit denetimi olan bir Win32 formum var. Kullanıcı TEdit denetimi odaktayken CTRL-t tuşlarına bastığında, OnKeyUp olayını kullanarak bunu tespit etmek istiyorum. Bir kod örneğine ihtiyacım var, lütfen Anahtar ve/veya Shift değişkenlerini kullanın. Teşekkürler. Doğru formun

Answer 1

Seti KeyPreview, sonra formun onkeyup olay için bu kodu yazmak:

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