//--------------------------------------------------------------------------- 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); } }
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; }