Discussion :

[dacid]

Bonjour,

J'essaye de simuler flèche bas de plusieures manières mais je n'y arrive pas...

Je vois partout que le code ASCII de la flèche bas est 40.
Mais pour moi, quand je fait ça:
chaine := 'TEST'+chr(40);

Que ce soit avec keybd_event(VkKeyScan(chaine[i]),0,0,0) ou ClipBoard.SetTextBuf(PAnsiChar(chaine));

Ca me retourne la parenthèse ouvrante '(' (ce qui me parait logique selon la table ASCII).

Comment faire pour que ça marche dans les 2 cas ?

[Lung]

http://www.developpez.net/forums/showthread.php?t=926

[dacid]

Bonjour Lung,

Oui, je l'ai bien lu, mais je ne veux pas mettre de code virtuel (incompatible avec le presse papier) mais le code ascii.

C'est à n'y rien comprendre... Je fait ça:

Code :

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

1
2
3
4
5
6
7
8
9
procedure TfrmMain.mmoInfosKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var str: String;
begin
  str := '';
  if ssShift in Shift then str := str+'La touche Maj est enfoncée. '
  else if ssAlt in Shift then str := str+'La touche Alt est enfoncée. '
  else if ssCtrl in Shift then str := str+'La touche Ctrl est enfoncée. ';
  ShowMessage(IntToStr(ord(Key))+' '+str);
end;

Quand j'appuie sur flèche bas, il me met juste 40 et lorsque je fait ALT+040 dans le bloc note, c'est ( qui apparait.

Je deviens fou !

[Droïde Système7]

Bonjour,

Et là, peut-être une piste :

http://perso.orange.fr/bardou/michel/trucs.htm

Une remarque / variante de Jean-Yves Queinec (08/09/99)

S'il existe des composants fenêtrés sur la fiche (boutons par exemple), les touches fléchées ne peuvent pas être interceptées en positionnant simplement KeyPreview à true. Si par exemple je veux dessiner sur une paintbox à l'aide des touches fléchées, ce sont les boutons qui reçoivent systématiquement les messages des touches de direction, ainsi que ceux produits par <Tab>. Voici une solution : -->

Implémentez l'événement OnCreate de votre TForm ainsi :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.FormCreate(Sender: TObject);
var
  bmp : Tbitmap;
  i : integer;
begin
  Application.OnMessage := TraiteMessages;
  ......

dans la déclaration de la Tform, juste sous

Code :

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

procedure FormCreate(Sender: TObject);

Ajoutez :

Code :

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

1
2
procedure TraiteMessages(Var msg : TMsg; Var Handled: boolean);
{ Gestionnaire de message au niveau application }

Puis dans la partie implémentation :


{ Intercepte les messages clavier et en particulier les touches flèchées }

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
Procedure Tform1.TraiteMessages(Var msg : TMsg; Var Handled: boolean);
var
  dx, dy : integer;
begin   dx: 0; dy := 0; 
  With msg do
  begin
    IF Message = WM_KEYDOWN then
    Case  wparam of
      VK_LEFT  : dx := -1;
      VK_RIGHT : dx :=  1;
      VK_UP    : dy := -1;
      VK_DOWN  : dy :=  1;
    end;
  end;
  IF (dy = 0) AND (Dx = 0) then Handled := false else
  begin
    handled := true;     // message traité
    Mouvement(dx, dy)    // exécution du tracé 
  end;
end;

[dacid]

J'avais également vu cette page, mais, en plus d'être bien compliquée à mettre en place, je ne pense pas qu'elle convienne car je n'ai pas du tout le main sur la zone à écrire.

Si j'ai bien compris, flèche bas n'est pas un code ASCII ?

[dacid]

Et c'est quoi le contraire de VkKeyScan ?

Peut être que de cette manière, je trouverais un code clé.
Vu que VK_DOWN=40, et que j'aimerais passer dans la boucle de traitement VkKeyScan, il faudrait que je trouve le code ASCII qui faire à VkKeyScan retourner 40.

C'est bête comme raisonnement ?

[bjl]

J'avais également vu cette page, mais, en plus d'être bien compliquée à mettre en place, je ne pense pas qu'elle convienne car je n'ai pas du tout le main sur la zone à écrire.

Si j'ai bien compris, flèche bas n'est pas un code ASCII ?

exact, flèche bas n'est pas un caractère et le code ascii ne s'applique qu'aux caratères.

40 est une valeur de message de touche pas de caractère.

un lien en anglais :
sdk windows

[Cl@udius]

Salut,

Je vois partout que le code ASCII de la flèche bas est 40.
Mais pour moi, quand je fait ça:
chaine := 'TEST'+chr(40);

Tu ne peut pas construire une chaine de caractère contenant un code touche virtuelle. Flèche bas n'est pas un caractère imprimable.

Comme je ne sais pas exactement ce que tu veux faire, je dirais simplement que cette chaine est correcte:

Code :

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

1
2
 
  chaine := 'TEST' + #13#10;

Et pour simuler un flèche bas dans une appli, tu peux faire:

Code :

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

1
2
3
 
  keybd_event(VK_DOWN, 0, 0, 0);
  keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0);

@+ Claudius

[ammar17]

bonjour
es que quelqu’un entre vous à tester la procédure "TraiteMessages" car je trouve pas la fonction : Mouvement(dx, dy) // exécution du tracé .
avez vous une solution?
merci

Salut,



Tu ne peut pas construire une chaine de caractère contenant un code touche virtuelle. Flèche bas n'est pas un caractère imprimable.

Comme je ne sais pas exactement ce que tu veux faire, je dirais simplement que cette chaine est correcte:

Code :

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

1
2
 
  chaine := 'TEST' + #13#10;

Et pour simuler un flèche bas dans une appli, tu peux faire:

Code :

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

1
2
3
 
  keybd_event(VK_DOWN, 0, 0, 0);
  keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0);

@+ Claudius