Shortcut avec plusieurs touches

Version imprimable

05/07/2002, 18h37
scorpiwolf

Shortcut avec plusieurs touches
j'aimerai appelé une fenetre à l'aide d'un raccourcis : ctrl+alt+s

j'arrive à l'appeller mais avec un raccourcis d'une touche:
Code:

1 2 3 4 5 6 void __fastcall TForm1::FormShortCut(TWMKey &Msg, bool &Handled) { if (Msg.CharCode == VK_CONTROL) pass->Visible = true; }
comment lui dire d'afficher la fenetre en combinant plusieurs touches??
06/07/2002, 14h44
henderson
Pourquoi ne pas envisager une solution à partir de OnKeyDown ?
(Propriété KeyPreview de la Form sur true)
On peut extraire l'état des touches shift, ctrl et alt à partir de Shift.

...
Code:

1 2 3 4 5 if(Shift.Contains(ssCtrl)&&Shift.Contains(ssAlt)&&(Key=='s')) { Key=0;//puisque prise en compte Form2->Show(); }
...
06/07/2002, 15h22
scorpiwolf

j'ai fait comme tu ma dis, mais sa marche pas alors apres j'ai seulement essayé avec if (Key == 's') et sa marche pas non plus

et j'ai bien mis keyprview a true

Je viens de tester aussi...euh...
Alors je me suis fâché...et j'ai testé au pas à pas...
Juste une form et un Label...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if(Shift.Contains(ssCtrl))
    {
    if(Shift.Contains(ssAlt))
        {
        if((Key=='S')||(Key=='s'))
            {
            Key=0;
            Label1->Caption="Coucou !";
            }
        if((Key=='A')||(Key=='a'))
            {
            Key=0;
            Label1->Caption="Au revoir !";
            }
        }
    }
}
//---------------------------------------------------------------------------

06/07/2002, 15h57
scorpiwolf

je te remercie grandement sa marche impecable