Discussion :

[ChPr]

Bonjour à toutes et à tous,

Je sèche lamentablement depuis une journée sur un problème de modification en cours de frappe.

Mon problème : Dans une cellule d'un TDrawGrid que j'ai mis en mode "édition", je voudrais pouvoir modifier au cours de la frappe le contenu de cette cellule. Par exemple, je dois y entrer une valeur numérique et je souhaiterais que lorsque je frappe sur un caractère alpha, celui n'apparaisse pas dans la cellule et ne soit pas pris en compte.

Je n'y arrive pas, j'ai bien essayé diféentes chose avec les propriétés, les options, les évènement OnKeyPress, OnGetEditText, ... rien n'y fait.

Peut-être n'est-ce pas possible ?

Si cela l'est, avez-vous une piste, un exemple à me donner ?

Merci de votre aide.

Pierre

[mick605]

Salut

A ta place, lors du clic sur la cellule, je placerai un TEdit de la même taille que la cellule, et tu gères tout ce que tu veux avec les évenements du TEdit. Tu peux peut être mettre un TSpinEdit si ca correspond a tes besoins ...

Bonne chance

[ChPr]

Alors ça, c'est pas c.. . S'il n'y a pas de solution plus directe avec le TDrawGrid, je vais essayer cela.

Merci beaucoup.

Pierre

[DOLPat®]

Je n'y arrive pas, j'ai bien essayé diféentes chose avec les propriétés, les options, les évènement OnKeyPress, OnGetEditText, ... rien n'y fait.

Bonjour

Euh, je n'ai peut-être pas bien compris le but, mais si c'est de filtrer la frappe de certains caractères, pourquoi ne pas utiliser l'événement KeyPress de TDrawGrid ?

Par exemple pour filtrer les touches numériques:

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.DrawGrid1KeyPress(Sender: TObject; var Key: char);
begin
  case Key of
    #0..#31, '0'..'9':
  else
    key:=#0;
  end;
end;

[ChPr]

Merci DOLPat® pour cette solution.

Je l'avais ébauchée, mais j'avais buté sur le problème du séparateur décimal qui doit :

- se trouver au moins en deuxième position,
- n'apparaître qu'une fois.

Je n'avais pas réussi à gérer cela car avec OnKeyPressed, on ne connaît pas la position du curseur lorsqu'on le déplace.

Je vais reconsidérer la question.

Cordialement.

Pierre

[DOLPat®]

Je n'avais pas réussi à gérer cela car avec OnKeyPressed, on ne connaît pas la position du curseur lorsqu'on le déplace.

Une demi-solution est d'interdire l'utilisation des touches VK_Left et VK_Right et de n'autoriser que VK_Back pour les corrections. Il est alors facile de gérer le séparateur décimal.

[tourlourou]

une autre idée est de gérer le OnChange(Text) de la cellule (s'il existe) ou le KeyPress en testant si la modification conserve la compatibilité avec le format souhaité (sinon, il suffit de l'annuler).

en utilisant S=Format(S, 'ton masque') ou regexp ou routine ou conversion

[ChPr]

une autre idée est de gérer le OnChange(Text) de la cellule (s'il existe) ou le KeyPress en testant si la modification conserve la compatibilité avec le format souhaité (sinon, il suffit de l'annuler). ...

OnChange n'existe pas. Le KeyPress tout seul n'est pas gérable. Par contre, il me semble qu'en combinant les données de OnKeyPress et OnSetEditText je devrait y arriver ... Je cherche.

Cordialement.

Pierre