🚀 go-pugleaf

/******************************************
This sample code respondes to a hotkey (Alt + F10)
When the user presses Alt + F10 the program gets focus
******************************************/

__fastcall TMyForm::TMyForm(TComponent* Owner)
  : TForm(Owner)
{
  windowHandle = MyForm->Handle;
  HotKeyID = 100;
  // this id is set by the programmer
  // make sure you don't set iqual id's for the same thread
  fsModifiers = MOD_ALT;
  VirtualKeyCode = VK_F10;

  if(RegisterHotKey(windowHandle, HotKeyID, fsModifiers, VirtualKeyCode) ==
true)
  {
    ShowMessage("HotKey Alt + F10 registred");
  }
  else
  {
    ShowMessage("The HotKey could not be registred!");
  }
}
//--------------------------------------------------------------------------
-
__fastcall TMyForm::~TMyForm()
{
  if(UnregisterHotKey(MyForm->Handle, 100))
  {
    ShowMessage("HotKey successfully unregistred");
  }
  else
  {
    ShowMessage("The HotKey could not be unregistred!");
  }
}
//--------------------------------------------------------------------------
-
void __fastcall TMyForm::WndProc(Messages::TMessage &Message)
{
  switch(Message.Msg)
  {
    case WM_HOTKEY:
      MyForm->TrayIcon1->Restore();
    break;

    default:
      TForm::WndProc(Message);
  }
}
//--------------------------------------------------------------------------
-

best regards.
andre|braz