Discussion :

[MIWAN]

Bonjour a toutes et a tous .
Voila plus de deux semaines que je galère pour simuler la procédure - FormKeyDown - dans un timer.
Pour bien expliquer : comment savoir si une touche a été pressée dans l’évènement d’un TTimer .
Merci pour toutes aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.Timer1Timer(Sender: TObject);
Var Key:Word;
    Shift: TShiftState;
begin
label2.Caption:= chr(Key);
 
 if  GetKeyState(VK_SHIFT) < 0 then 
    begin
      Label1.caption:='Shift +'+Label2.Caption;
   end;
 
end;

[ShaiLeTroll]

Essaye ceci

Code :

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

1
2
3
4
5
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if  (GetAsyncKeyState(VK_SHIFT) and $8000) <> 0 then
    Label1.caption:='Shift +'+Label2.Caption;
end;

Il faut que Shift soit appuyé au même du Timer, si tu as laisse Interval à 1000, tu risque de le louper
Essaye à 50ms, n'oublie pas le Enabed du Timer aussi !

GetAsyncKeyState and $0001 permet de gérer si Shift a été appuyé entre cet appel et le précédent, je ne l'ai jamais utilisé ainsi pour ma part

On a parlé de cela dans Problème de touche clavier , je te laisse lire ce sujet

[MIWAN]

Merci ShaiLeTroll pour votre réponse si rapide

je n'ai pas de problème pour la détection du Shift mais mon problème est que je ne sais comment que Label2 intercepte la touche clavier appuyée .

[BuzzLeclaire]

mon problème est que je ne sais comment que Label2 intercepte la touche clavier appuyée .

Normal un TLabel n'est pas un descendant de TWinControl mais d'un TGraphicControl

Il faut que tu l'attaque avec les Evénements Windows WM_KEY etc...

[Montor]

Normal un TLabel n'est pas un descendant de TWinControl mais d'un TGraphicControl

Il faut que tu l'attaque avec les Evénements Windows WM_KEY etc...

Elle ne détienne pas le focus

[BuzzLeclaire]

Elle ne détienne pas le focus

Cela dépends de ce que tu souhaite faire, si c'est un déplacement personnellement je place le tlabel dans un tpanel.
Si c'est juste pour détecter le clique pour faire une modification de texte cela suffira..

[Andnotor]

Citations

1. Simuler OnKeyDown dans TTimer
2. comment savoir si une touche a été pressée dans l’évènement d’un TTimer
3. je n'ai pas de problème pour la détection du Shift mais mon problème est que je ne sais comment que Label2 intercepte la touche clavier appuyée

Perso... j'ai pas compris la question

[Ph. B.]

Perso... j'ai pas compris la question

C'est ce que je me suis dit hier soir...

[Caribensila]

C'est, je pense, l'opportunité de l'utilisation d'un Timer qui pose problème et qui a été mal comprise par MIWAN.

« Le composant Timer permet de déclencher un événement (une seule fois ou de façon répétitive) après un intervalle de temps mesuré. »

[MIWAN]

Citations

1. Simuler OnKeyDown dans TTimer
2. comment savoir si une touche a été pressée dans l’évènement d’un TTimer
3. je n'ai pas de problème pour la détection du Shift mais mon problème est que je ne sais comment que Label2 intercepte la touche clavier appuyée

Perso... j'ai pas compris la question

peut être que je n'étais pas claire :

dans les événements (onKeyDown et onKeyPress) le label intercepte les caractères tapés dans le clavier ; mais quand la forme n'est pas active on perd la réception des touches . a cause de ce la je cherche a simulé ces procédures dans un Ttimer;

j'ai bien fait beaucoup de manipulations et je n'ai pas pu arriver a mes besoins

par exemple :les procédures de Sub0
http://www.developpez.com/telecharge...e2ee45a2146ee9

on voit qu'il détecte la sourie et meme que la fiche(Form) n'a pas de focus , mais comment afficher les caractères svp ?

[MIWAN]

C'est, je pense, l'opportunité de l'utilisation d'un Timer qui pose problème et qui a été mal comprise par MIWAN.

oui je ne sais comment procéder pour que le label affiche les caractères .

[Ph. B.]

peut être que je n'étais pas claire :

Eh bien, je dirais pas très...

dans les événements (onKeyDown et onKeyPress) le label intercepte les caractères tapés dans le clavier ; mais quand la forme n'est pas active on perd la réception des touches . a cause de ce la je cherche a simulé ces procédures dans un Ttimer;

Si la fiche n'est pas active, c'est qu'une autre l'est et c'est elle qui récupère les événements clavier (les messages windows en fait) ?

En fait, je pense que la solution revient à traiter ces messages, mais pour en être sur, pourriez vous présenter plus concrètement ce que vous voulez obtenir comme fonctionnement ?

[MIWAN]

En fait, je pense que la solution revient à traiter ces messages, mais pour en être sur, pourriez vous présenter plus concrètement ce que vous voulez obtenir comme fonctionnement ?

OK

pour l'affichage de l'état des souris il est dans le source de Mr: Sub0
ce qui me manque :
1 - si je tape c sur le clavier ---> le TLabel affiche c.
2 - si je fait Shift + C ---> Le TLabel affiche : ' Shift + ' C
ainsi que pour les autres combinaisons du clavier.

[Ph. B.]

ce qui me manque :
1 - si je tape c sur le clavier ---> le TLabel affiche c.
2 - si je fait Shift + C ---> Le TLabel affiche : ' Shift + ' C
ainsi que pour les autres combinaisons du clavier.

On pourrait peut-être utiliser un TApplicationEvents qui se chargerait d'intercepter les messages et de traiter ceux qui sont pertinents via le gestionnaire de message OnMessage. Les messages à étudier sont entre autres WM_KEYDOWN, WM_KEYUP, WM_CHAR...
En fonction de l'information capturée, on peut remplir de manière adéquate le TLabel.

[MIWAN]

bonsoir

pour les Touches shift , alt c'est bon avec le code suivant pour ce qui s'intéresse

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
 
 
dans un timer 
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  i : byte;
begin
 
  for i:=8 To 222 do
  begin
         if GetAsyncKeyState(i)=-32767 then
      if GetKeyState(VK_Shift)<0 then
      Label1.Caption:='Shift + '+(GetCharFromVirtualKey(i))
      else
      Label1.Caption:=(GetCharFromVirtualKey(i));
  end;
 
 
end;

maintenant je suis bloqué par la combinaison VK_CONTROL et un autre caractère . la ou j'espère une aide

[MIWAN]

Citations

1. Simuler OnKeyDown dans TTimer
2. comment savoir si une touche a été pressée dans l’évènement d’un TTimer
3. je n'ai pas de problème pour la détection du Shift mais mon problème est que je ne sais comment que Label2 intercepte la touche clavier appuyée

Perso... j'ai pas compris la question

bonjour

je cherche a savoir comment intercepter une combinaison des touches clavier.

[tarekk73]

salu a tt le monde
il n'existe pas un evenement onkeydown dans le composant ttimer
mai en pent jouer avec on keydown de notre form et en utilison une variable de teste pour savoir si une touche et enfoncer moi j'utilise la varibla tag de timer si tag a la valeur 1 alor une touche est enfoncer sinon on fai rien .
voula la source

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
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
timer1.Tag := 1;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if timer1.Tag = 1 then
begin
//--- ecrire ce que veu tu faire
timer1.tag :=0;    // renitialiser la variable a 0
end
 
 
end;

[MIWAN]

bonjour

il n'existe pas un evenement onkeydown dans le composant ttimer

ça tt le monde le sait c'est pour cela j'ai le titre (simulation);

moi j'utilise la varibla tag de timer si tag a la valeur 1 alor une touche est enfoncer sinon on fai rien .

ce petit trick ne marche pas quand la fiche perd le focus .

on toutes les cas je suis très reconnaissant de votre intervention merci.

NB:

je crois que je dois fouiller dans les HOOKS - Claviers.

[tarekk73]

salu amie
onkeydown existe que dans les composantS visuel ( les composants qui recoit la focalisation)
dans notre cas ttimer ne recoit pas la focalisation. c'est pour ça j'ai utilisez un composant visuel . en plus de ça onkeydown de n'importe quel composant ne s'execute automatiquement que si son composant et on focalisation .
merci et bon courage amie