Exemplo n.º 1
0
//---------------------------------------------------------------------------
void __fastcall TNakladnaForm::FormKeyPress(TObject *Sender, char &Key)
{
   switch(Key)
   {
      case VK_RETURN:
         ButtonInsertClick(*Sender);
      break;
      case VK_INSERT:
         ButtonInsertClick(*Sender);
      break;
   }
}
Exemplo n.º 2
0
void __fastcall TPrihodForm::EditDateKeyPress(TObject *Sender, char &Key)
{
   switch(Key)
   {
      case VK_RETURN:
         ButtonInsertClick(*Sender);
      break;
      case VK_INSERT:
         ButtonInsertClick(*Sender);
      break;
   }   
}