Discussion :

[cincap]

Bonjour à toutes et à tous,

J'utilise un Tbutton à deux états sur ma fiche, un état pour fermer ma fiche avec "Application.minimize" et activer un timer et l'autre pour stopper le timer mais je dois cliquer sur la fiche qui se trouve dans la barre de tache pour la restaurer et appuyer sur le bouton "STOP".

Serait t'il possible avec la touche "Escape" de rendre à ma fiche son état windowState := wsnormal pour me permettre d'appuyer sur ce bouton "STOP" ou de le faire en même temps.

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
 
procedure TFenregistre.BfilmerClick(Sender: TObject);
begin
 
  if Bfilmer.Caption<>'Stop' then begin
 
  Application.minimize;
 
  memo1.Clear;
 
  Bfilmer.Caption:='Stop';
  timer1.Enabled:=true;
 
  end;
 end
 else begin
 
  {if Key = VK_ESCAPE then
  windowState := wsnormal; }
 
 timer1.Enabled:=false;
 
  Bfilmer.Caption:='Filmer';
 
 windowState := wsnormal;
 Application.ProcessMessages;
 
 end;
end;

J'ai essayé plusieures possibilités avec la touche VK_ESCAPE sans résultat.

Même en mettant KeyPreview à true.

Merci d'avance,

@+,

Cincap

[Linkin]

et en appelant BfilmerClick dans le OnKeyPress si Key=VK_Escape?

[LeGEC]

Salut,

Je ne suis pas sûr d'avoir compris tous les détails de ta question.

Si tu veux que appuyer sur échap fasse la même chose que de réafficher la fenêtre de ton application et de cliquer sur le bouton 'stop', c'est dans le OnKeyDown de ton application que tu devrais le gérer, non?

*LeGEC*

[cincap]

@Linkin, l'instruction suivante :

if Key = VK_Escape then BfilmerClick(Sender);

ne fonctionne que dans l'événement OnKeyDown, sinon excellente suggestion mais j'avais déjà essayé.

@LeGEC, ne pas oublier que lorsque la fiche est minimisée, elle perd le focus.

Merci de vos réponses,

@+,

Cincap

[Andnotor]

La façon la plus élégante serait l'emploi de RegisterHotKey pour hooker la touche (ou la combinaison de touches) lorsque ton application est minimizée.

Et UnregisterHotkey lorsqu'elle redevient active.

[cincap]

@ Andnotor, bien vu l'ami en déclarant une procédure privée.

Je teste et je vous tiens au courant.

@+,

Cincap

[cincap]

Voila, tout est ok pour moi même l'activation du bouton "STOP".

Je cloture ce topic.

Merci à Andnotor de m'avoir mis sur la voie.

@ Tous, Merci.

@+,

Cincap

[peter27x]

Hello,

je voulais savoir comment fonctionnait ce "RegisterHotKey" ? Car j'ai voulu voir ça dans l'aide de Delphi et padawan, nada...

Hors, ça a l'air très intéressant.

Merci.

[Linkin]

C'est une API Windows, donc soit l'aide du sdk, soit mdsn.

[peter27x]

C'est une API Windows, donc soit l'aide du sdk, soit mdsn.

ok, c'est comme pour postThreadMessage quoi !

Merci.

[ero-sennin]

Salut,

Voici un peu d'explications pour l'utilisation de RegisterHotKey.

Dans la partie private de la Form, il faut ajouter ceci :

Code :

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

1
2
hotkey1: Integer;
procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;

Ensuite, on implémente la procédure WMHotKey :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  if msg.HotKey = hotkey1 then
  begin
    // On définit les action à faire, ici, je restaure ma form
    Application.Restore;
    SetForegroundWindow(Self.Handle);
  end;
end;

Pour terminer, on compléte le OnCreate ainsi que OnDestroy de la form :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.FormCreate(Sender: TObject);
const MOD_CONTROL = 2; // Touche Control nécessaire
begin
  hotkey1 := GlobalAddAtom('Hotkey1');
  RegisterHotKey(handle, hotkey1, MOD_CONTROL,VK_F1);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnRegisterHotKey(handle, hotkey1); // Désactive le HotKey
end;

Voilà en gros le principe.
En espérant t'avoir aidé
A+

[peter27x]

...

Voilà en gros le principe.
En espérant t'avoir aidé
A+

Oui, merci bien !