Discussion :

[dleu]

Bonjour,

Je voudrais que, comme dans excel, quand on utilise mon appli, le point du pavé numérique soit transformé en virgule (séparateur décimal).

Je peux le faire facilement au niveau de chaque édit de mon appli (fonction replace) mais n'y a-t-il pas moyen de le faire plus simplement au démarrage de l'appli et de restaurer le point à la sortie de l'appli ? D'autant plus que j'ai beaucoup d'édits dans mon application.

Merci de votre aide.

Didier

[Archibald29]

Bonjour,

au démarrage de l'application :
DecimalSeparator:='.';

en sortie de l'application :
DecimalSeparator:=',';

Pour utiliser le point en lieu et place de la virgule pour cette application

[Nono40]

http://delphi.developpez.com/faq/?pa...propri#numbers

[dleu]

http://delphi.developpez.com/faq/?pa...propri#numbers

Ca, j'ai signalé que je pouvais le faire. Mon problème, et c'est la raison du post, c'est que j'ai beaucoup d'edits et que je cherche donc une technique "plus générale".

A Archibald29 : c'est justement l'inverse que je veux faire. Je ne veux pas modifier le séparateur décimal mais juste faire en sorte que le point du pavé numérique m'affiche une virgule.

A Nono40, tu n'aurais pas dans tes cartons une méthode plus générale comme signalé plus haut ?

Quoiqu'il en soit, merci à vous deux.

Didier

[Nono40]

Tu peux sélectionner tous tes TEdit d'une page et ensuite assoyer le même évènement à tous. Si ça ne suffit pas faudra chercher dans le plus compliqué

[Okaryn]

Une idée comme ça :

Code :

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

1
2
3
4
5
procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
  if (Form1.ActiveControl is TEdit) and (key = '.') then
    key := decimalseparator;
end;

et modifier la propriété KeyPreview de Form1 à True

[denokan]

dans ta situation je pense qu'il serai intéressant de créer un nouveau composant TMyCustomEdit que tu ferai descendre de TEdit en y incluant le comportement que tu souhaite

[dleu]

OK.

Merci pour votre aide.

Nono40, je vais faire comme tu le suggères. C'est manifestement le plus simple.

Didier

[Arkal]

Code :

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

1
2
3
if ((Key = '.') 
  and (Key <> DecimalSeparator)) then
  Key := DecimalSeparator;