Example #1
0
//---------------------------------------------------------------------------
void __fastcall TRightsFrame::CMDialogKey(TCMDialogKey & Message)
{
  if (FPopup && Visible &&
      ((Message.CharCode == VK_RETURN) ||
       (Message.CharCode == VK_ESCAPE)) &&
      KeyDataToShiftState(Message.KeyData).Empty())
  {
    CloseUp();
    Message.Result = 1;
  }
  else
  {
    TFrame::Dispatch(&Message);
  }
}
Example #2
0
bool    DesignerHook::OnMessage(TControl* Sender,Messages::TMessage &Message)
{
    bool msg_handled=(IsMouseMsg(Message.Msg) || IsKeyMsg(Message.Msg));
    TWMMouse& WMMouse=(TWMMouse&)Message;
    TWMKey&   WMKey=(TWMKey&)Message;
    switch(Message.Msg){
    case WM_LBUTTONDOWN:
        MouseDown(
        Sender,
        mbLeft,
        KeysToShiftState(WMMouse.Keys),
        WMMouse.XPos,
        WMMouse.YPos
        );
        break;
    case WM_MOUSEMOVE:
        MouseMove(
          Sender,
          KeysToShiftState(WMMouse.Keys),
          WMMouse.XPos,
          WMMouse.YPos);
        break;
    case WM_LBUTTONUP:
        MouseUp(
          Sender,
          mbLeft,
          KeysToShiftState(WMMouse.Keys),
          WMMouse.XPos,
          WMMouse.YPos);
        break;
    case WM_KEYDOWN:
        KeyDown(
          Sender,
          WMKey.CharCode,
          KeyDataToShiftState(WMKey.KeyData)
          );
        break;
    }
 
    if(Sender == Form_){
        msg_handled=false ;
    }
    return msg_handled;
}