Discussion :

[iam]

salut
je veux remplacer la touche de fleche de direction droite par entrer, cad quand je tappe vk_right j'execute le code qui se déclenche quand je tappe entrer, j'ai essayé ça dans l'evenement OnKeyDown, mais ça ne marche pas

Code :

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

if key=vk_right then key:=vk_return;

[anapurna]

salut

Code :

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

1
2
3
4
5
if (Key=VK_right) then
begin
  Key := 0;
  keybd_event (VK_RETURN,0,0,0);
end;

@+ Phil

[iam]

merci pour votre réponse mais ça n'a pas marché, en faite, je veux eviter que l'user valide le contenu d'une cellule dans un stringgrid par la touche vk_right, car il s'affiche un message d'erruer c'est pour ça je veux remplacer l'appui de cette touche par celle de la touche entrer, pour valider la cellule et passer à la suivante

[anapurna]

salut

comment ça le code n'as pas marché ?
le keypreview sur ta form est comment ?

@+ Phil

[iam]

le keypreview de ma forme est à true, mais ça n'a pas marché, mais j'ai mis ton code dans l'evenement OnKeyDown de mon stringgrid, pad de celui de ma form, je t'explique un peu ce que je veux faire pour que vous puissez m'aider, que je saisie un chiffre dans une cellule après je tape entrer je passe à l'autre et je fais une multiplication après que je fais une conversion strtoint et j'affiche le resultat dans une dernière cellule, quand l'utlisateur appuie sur la flèche de direction à la place de entrer il m''affiche une message d'erreur, valeur entière incorrecte,don c'est pour ça je veux remplacer le cette touche par entrer pour eviter au user de voir de tels messages d'erreurs, j'espère que j'etais très clair et merci infiniment pour ton aide

[Thierry Laborde]

Salut,

J'ai fait le test chez moi et le code d'anapurna fonctionne correctement.
Mais le problème que je vois c'est que tu essayes d'intercepter les touches pour modifier un comportement tout simplement pour cacher une erreur non prévu dans ton code. Je pense qu'il serait plus judicieux de gérer lorsque tu fait ton STRTOINT le cas ou le chiffre saisi n'est pas correct voir la celulle vide. Du moins moi c'est ce que je ferais.

[anapurna]

salut

en fait c'est dans l'evenement de sortie de ta cellule qu'il faut gerer c'est a ce momment que l'erreur ce produit
si tu enter tu passe de toute les facons a la cellule suivante


@+ Phil

[aityahia]

tu mets le code dans l'evenement OnkeyPress et non dans OnKeyDown il faut vérifier si il faut mettre Keypreview de ta fiche a true

le Key et de type char et non entier comme pour OnKeypress

VK_RETURN <=> #13

[aityahia]

essai ce code dans l'evenement OnKeyDown

Code :

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

1
2
3
4
5
6
7
8
if Key = VK_RETURN
Try
 StrToInt(StringGrid1.Cells[StringGrid1.col,StringGrid1.Row]);
  Key := VK_TAB
 
 Except
   ShowMessage('Valeur entiere incorect');
 end;

il faut executer le prog a l'extérieru sinon IDE intercept l'exeption avant le Try except

[iam]

merci infiniment pour toutes vos réponses et eclaircissements, surtout la remarque de tiki06, il faut que je cherche à gérer l'erreur et pas la cacher