1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| __fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
//pour simuler l'affichage "caption raccourci"
MenuItem1->Caption = MenuItem1->Caption+ " \t" + "Shift + End"; // au lieu de Maj + Fin
}
//---------------------------------------------------------------------------
// pour le declenchement du raccourci dans l'evenement OnShortCut de la fiche :
void __fastcall TForm1::FormShortCut(TWMKey &Msg, bool &Handled)
{
if( (Msg.CharCode == VK_END ) && ( KeyDataToShiftState(Msg.KeyData).Contains(ssShift) ))
{
MenuItem1->Click();
}
}
//--------------------------------------------------------------------------- |
Partager