Discussion :

[cbegood]

Bonjour à tous,

c'est clairement débile mais j'utilise une fonction pour ne permettre que des entier dans une TEdit et bizarement il autorise le point decimal '.' alors que je ne l'autorise pas. Est ce normal??

Code :

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

1
2
3
4
5
6
7
8
 
function AllowOnlyDigit (Key :Char) : Char;
begin
  if (Key in ['0'..'9',Chr(VK_BACK),Chr(VK_DELETE)]) then
    AllowOnlyDigit:=Key
  else
    AllowOnlyDigit:=#0;
end;

Merci pour votre aide.

[Cl@udius]

Salut

Supprime VK_DELETE de ton if.
A savoir qu'un Chr(VK_DELETE) renvoie un point (.)

@+ Claudius

[cbegood]

Et ça me laissera la possibilité d'utiliser la touche delete?

[cbegood]

Je ne vois même pas pourquoi j'ai mis cette question je peux y répondre tout seul. Et la réponse est oui lol.

Par contre sais tu ou je peux trouver une table avec toute les correspondance car c'est pas évident.

Pour ma fonction suivante je veux permettre les nombre decimaux ducoup je dois utiliser VK_DELETE et non VK_DECIMAL c'est un peu louche.

Merci beaucoup a plus.

[Cl@udius]

Oui, parce que la touche DELETE ne déclenche pas d'évènement OnKeyPress.

@+

[Franck SORIANO]

Fait également attention au fait qu'on peut saisir des données dans un Edit, avec du copier/coller, et même faire le copier/coller à la souris...

[scara]

Fait également attention au fait qu'on peut saisir des données dans un Edit, avec du copier/coller, et même faire le copier/coller à la souris...

et comment éviter ça ?

[pepi22]

En gérant entièrement le copier/coller vous même.

Pour le click de droit sur un TEdit, la propriété PopupMenu permet de définir un menu personalisé à cet effet (Si vide, delphi créé un menu par défaut : Couper/Copier/Coller/Sélectionner tout)

Donc, vous pouvez vous créer votre propre menu et ensuite l'assigner au TEdit avec la propriété PopupMenu (Edit1.PopupMenu)

Et heureusement, le TEdit possède déjà des fonctions toutes faites :

Code :

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

1
2
3
4
5
 
Edit1.CopyToClipBoard
Edit1.PasteFromClipBoard
Edit1.CutToClipBoard
Edit1.SelectAll

Pour vérifier le contenu du presse papier avant d'effectuer un coller vous pouvez utiliser l'objet ClipBoard qui est déjà instancié d'ailleur (Comme l'objet Application).

Ex :

Code :

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

1
2
 
ClipBoard.AsText //retourne la valeur courrante du presse-papier

dans votre cas

Code :

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

1
2
3
4
5
6
 
  for i = 1 to Length(ClipBoard.AsText) do
   begin
     if AllowOnlyDigits(ClipBoard.AsText[i]) = #0 then
       //Caractère non accepté trouvé
   end;

Note1 : Pour utiliser l'objet ClipBoard, vous devez inclure l'unité : ClipBrd

Note2 : Les raccourcis clavier ne sont pas créé automatiquement si vous créez votre menu. Vous devrez les assigner vous même dans la propriété ShortCut de votre Menu. Je le spécifie car il est souvent oublié

Note3 : Si vous utilisez beaucoup de ce genre de restriction dans votre application, il serait peut-être préférable de travailler avec un TActionList afin d'éviter de répété toujours le même code sur toute les fenêtres

[scara]

Merci pour cette réponse claire!

[cbegood]

Note3 : Si vous utilisez beaucoup de ce genre de restriction dans votre application, il serait peut-être préférable de travailler avec un TActionList afin d'éviter de répété toujours le même code sur toute les fenêtres

Pour toute mes validations j'ai créé une unité simple dans laquelle je met toutes mes fonctions de validation. Ne connaissant pas le composant TActionList; est-ce plus intéressant d'utiliser ce composant ou ma solution est aussi efficace?

Merci pour ces explications claires et complètes.

[pepi22]

Les deux solutions sont aussi efficace en terme de réutilisation.

Le seul avantage d'un TActionList est que l'on peut assigné une action directement sur un composant.

Par exemple : Un popup menu a une propriété Action (PopupMenu.Action) auquel on peut assigné une action définis dans un TActionList.

Donc la liaison se fait au Design Time tandis que avec une unité de code, la liaison se fait en code au Run Time.

[Andnotor]

Et là, on n'a parlé que d'événementiel.

Le TActionList permet surtout de centraliser l'aspect visuel des différents objets. Les images, les captions, les états Enabled/Disabled. etc.

Un TToolButton ou un TMenu deviennent presque "Parents" (au sens Langue française ) voir "Jumeaux" alors qu'ils ne dérivent pas des mêmes objets.

S'il n'y a pas d'aspect graphique, le TActionList n'apporte pas grand chose.