Discussion :

[PetitBoutDeCode]

Bonjour,

J'ai essayé de recycler une fonction me permettant de faciliter la saisie à l'utilisateur (dans le cas présent pour saisir une heure) :

Code :

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

1
2
3
4
5
6
7
8
 
procedure Form1.EFDebutKeyDown(Sender: TObject; var Key: Word;
  var KeyChar: Char; Shift: TShiftState);
begin
  if (Length(EFDebut.Text)=2) And (Key <> 8) And (Key <> 58) then 
    EFDebut.Text := EFDebut.Text+':';
  EFDebut.SelStart := Length(EFdebut.Text);
end;

Avec Delphi 6, ça fonctionne sans soucis, mais en FMX (Delphi 11), la plupart du temps, et ce pour beaucoup de touches, Key = 0 .
Est-ce normal?

[ShaiLeTroll]

Faut lire la doc : https://docwiki.embarcadero.com/Libr...ontrol.KeyDown sur la gestion de Key ou KeyChar selon leur valeur respective et de préférence faut utiliser les constantes tel que System.UITypes.vkBack
58 ? c'est Maj ... mieux vaut utiliser la valeur de Shift

[PetitBoutDeCode]

Faut lire la doc

Je plaide coupable..

Ca fonctionne parfaitement maintenant

Code :

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

if (Length(EFDebut.Text)=2) And (KeyChar <> ':') And (Key <> 8) then

[pprem]

Du coup pour key<>8 tu devrais aussi utiliser les constantes vkXXX définies, parce que si quelqu'un (ou toi) relis le code dans quelques mois ou années, qui se souviendra que c'est la fabulation ?

[PetitBoutDeCode]

Du coup pour key<>8 tu devrais aussi utiliser les constantes vkXXX définies, parce que si quelqu'un (ou toi) relis le code dans quelques mois ou années, qui se souviendra que c'est la fabulation ?

Eh bien à l'époque ou j'ai écris cette fonction je n'avais pas réussi à utiliser ces constantes, du coup je me suis contenté du #58 et #8.

par exemple quand je fais

Code :

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

  if (Length(EFDebut.Text)=2) And (KeyChar <> ':') And (Key <> VK_BACK) then

J'ai l'erreur

[dcc64 Error] E2003 Undeclared identifier: 'VK_BACK'.

Je me suis dis qu'il fallait peut-être ajouter quelque chose dans les uses mais en cherchant rapidement je n'ai pas trouvé alors je suis allé à la facilité

Mais c'est vrai que déjà la en la copiant j'ai du réessayer pour me rappeler

[ShaiLeTroll]

... System.UITypes.vkBack

Euh, pourtant j'ai indiqué le nom complet juste au dessus


et VK_BACK c'est dans Winapi.Windows a éviter en FMX

[PetitBoutDeCode]

En fait je me suis senti tellement bête quand j'ai lu le "Faut lire la doc", que je me suis précipité sur la doc sans lire la fin du message...

Je vais l'intégrer dans l'appli VCL du coup et tant pis pour le FMX je vais mettre des commentaires ^^

[ShaiLeTroll]

en VCL : VK_BACK (Winapi.Windows est inclus par défaut dans une unité TForm créée via l'IDE)
en FMX : vkBack (System.UITypes à ajouter)

Pas besoin de commentaire, juste utiliser ce qu'il faut au bon endroit