Discussion :

[micatmidog]

Bonjour à tous !

Je voudrais en fait mettre un easter egg dans mon programme... et pour l'activer, il faudrait faire dans la fenetre par exemple : d + e + v.

Comme ceci plus précisément : d (on appuie puis on relache) + e (on appuie puis on relache) + v (on appuie puis on relache).

Cette combinaison de touches ferait apparaître une autre fiche ( Form2.ShowModal; ).

Comment puis-je m'y prendre svp ?

Merci d'avance pour votre aide.

Titre modifié.
Merci de lire les règles du forum.

[Sub0]

Salut!

Pour obtenir l'appui de touche en simultanné, les combinaisons, il faut enregistrer l'état de chaque touche dans un tableau de boolean.

http://sub0.developpez.com/delphi/mouse.zip

Si tu ne veux pas utiliser de timer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Unit Unit1;
Interface
Uses Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs;
 
Type
  TForm1 = Class(TForm)
    Procedure FormCreate(Sender: TObject);
    Procedure ProcMess(Var msg: TMsg; Var Handled: boolean);
  End;
 
Var
  Form1: TForm1;
 
 
{----------------------------------------------------------------}
{                       }Implementation{                         }
{----------------------------------------------------------------}
{$R *.DFM}
 
Var
  mb: Array[0..255] Of Bool;
 
 
{----------------------------------------------------------------}
Procedure TForm1.FormCreate(Sender: TObject);
Begin
  Application.OnMessage := ProcMess;
End;
 
 
{----------------------------------------------------------------}
Procedure TForm1.ProcMess(Var msg: TMsg; Var Handled: boolean);
Begin
  If (msg.Message = WM_KEYDOWN) Then mb[msg.wparam] := True;
  If (msg.Message = WM_KEYUP) Then mb[msg.wparam] := False;
 
  If (msg.Message = WM_KEYDOWN) Then
    If ((mb[Ord('d')]) Or (mb[Ord('D')])) And
       ((mb[Ord('e')]) Or (mb[Ord('E')])) And
       ((mb[Ord('v')]) Or (mb[Ord('V')])) Then ShowMessage('ok!');
End;
 
 
{----------------------------------------------------------------}
End.

tu peux aussi utiliser les évènements OnKeyDown et OnKeyUp :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Var
  mb: Array[0..255] Of Bool;
 
 
{----------------------------------------------------------------}
Procedure TForm1.FormKeyDown(Sender: TObject; Var Key: Word;
  Shift: TShiftState);
Begin
  mb[Key] := True;
  If ((mb[Ord('d')]) Or (mb[Ord('D')])) And
     ((mb[Ord('e')]) Or (mb[Ord('E')])) And
     ((mb[Ord('v')]) Or (mb[Ord('V')])) Then ShowMessage('ok!');
End;
 
 
{----------------------------------------------------------------}
Procedure TForm1.FormKeyUp(Sender: TObject; Var Key: Word;
  Shift: TShiftState);
Begin
  mb[Key] := False;
End;
 
 
{----------------------------------------------------------------}
End.

à+

[micatmidog]

Merci beaucoup pour ton aide

[Sub0]

Très bon article!! -> http://tcharles.developpez.com/simul/

Petit aide-mémoire trouvé par hasard : http://algeria.free.fr/delphi.htm