void __fastcall TQSOEditDlg::FormKeyUp( TObject */*Sender*/, WORD &Key, TShiftState Shift ) { if ( ( Shift.Contains( ssCtrl ) || Shift.Contains( ssShift ) ) && Key >= VK_F1 && Key <= VK_F12 ) { if ( Shift.Contains( ssCtrl ) && Shift.Contains( ssShift ) ) { // keyer record keys TSendDM::sendKeyerRecord( Key - VK_F1 + 1 ); } else { // Keyer play keys TSendDM::sendKeyerPlay( Key - VK_F1 + 1 ); } } else if ( Shift.Empty() ) { if ( ( Key == VK_F1 || Key == VK_F2 || Key == VK_F3 || Key == VK_F4 || Key == VK_F5 || Key == VK_F6) ) { GJVQSOEditFrame->setActiveControl( Key ); } } }
//--------------------------------------------------------------------------- void __fastcall TEditorForm::FormKeyDown(TObject * /*Sender*/, WORD & Key, TShiftState Shift) { if (((Key == VK_ESCAPE) || (Key == VK_F10)) && Shift.Empty()) { Key = 0; Close(); } }
//--------------------------------------------------------------------------- void __fastcall TEditMaskDialog::FormKeyDown( TObject * /*Sender*/, WORD & Key, TShiftState Shift) { if ((Key == VK_ESCAPE) && Shift.Empty()) { ModalResult = mrCancel; Key = 0; } else if ((Key == VK_RETURN) && Shift.Contains(ssCtrl)) { ModalResult = DefaultResult(this); Key = 0; } }
void __fastcall TMain::FormKeyDown(TObject * Sender, WORD & Key, TShiftState Shift) { if (!Memo->Enabled) return; if (Shift.Empty()) switch (Key) { case VK_F1: tbtnAbout->Click(); break; case VK_F3: tbtnSave->Click(); break; case VK_F5: tbtnUpdate->Click(); break; case VK_F8: tbtnMail->Click(); break; } }
} } mysql_free_result(result); }