डेल्फी

Question

में ctrl-t keypress का पता लगाने के लिए मेरे पास एक TEDit नियंत्रण वाला Win32 फॉर्म है। जब उपयोगकर्ता CTD-t दबाता है, जबकि TEDIT नियंत्रण फ़ोकस में होता है, तो मैं ऑनकेप ईवेंट का उपयोग करके इसका पता लगाना चाहता हूं। मुझे कुंजी और/या Shift चर का उपयोग करके कोड कोड की आवश्यकता है। धन्यवाद। यह सच है के लिए फार्म की

Answer 1

सेट KeyPreview, तो अपने फार्म की onkeyup घटना के लिए इस कोड को लिखें:

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