var Key:word;Shift:TShiftState); begin Forml.Caption:= IntToStr(Key); end; Biz bilərəkdən nəticələri formanın sərlövhəsi üzərinə çıxarırıq ki, paneldə basılan klavişin simvolunu, formada isə ədədi qiymətlərini (kodlannı) görə biləsiniz. İndi yuxanda baxılan misaldan fərqli olaraq, nəinki simvol klavişlərini, hətta bütün klavişlərin (Tab klavişindən başqa) ədədi qiymətlərini görə bilərsiniz. Misal. OnKeyDown hadisəsində Shif t parametrinin öyrənilməsi. Sonuncu misalda gördük ki, OnKeyDown hadisəsində Shift parametri də iştirak edir. Bu parametrin funksiyasını öyrənək. Bunun üçün File/Close All (Fayl/Hamısını bağlamaq) əmri ilə köhnə layihəni bağlayın. File/New (Fayl/Yeni) əmrini icra edərək obyektlərin saxlandığı yerdən Application (Əlavə) seçin. Forma üçün Obyektlər inspektorunda OnKeyDown hadisəsi qarşısında mausun düyməsini iki dəfə basaraq aşağıdakı kodları yazın: procedure TForml.FormKeyDown(Sender:TObject; var KeyDown:Word;Shift:TShiftState); begin if Shift= ([ssCtrl]) and (chr(Key)='1') then MessageDlg{ "'Ctrl və 1" klavişləri basılmışdır ', mtConfirmation, [mbOk],0); end; Panelin üzərində Ctrl+1 klavişlərini basdıqda "Ctrl və 1" klavişləri basılmışdır məlumatından ibarət Confirm dialoq pəncərəsi ekranda təsvir olunacaqdır. Bu pəncərə MessageDlg proseduru ilə ekrana çıxarılır. Misal. Simvolun daxil edilməsinə qadağa. Yeni layihədə boş formaya aid OnKeyPress hadisəsi qarşısında mausun düyməsini iki dəfə basaraq aşağıdakı kodları yazın: procedure TForml.FormKeyPress(Sender:TObject;
