Discussion :

[cgone]

Bonjour,

J'ai un champ de saisie (TMaskEdit) et j'ai mis le masque suivant : !###.###.##0,00;1;_

Mon problème, c'est qu'on est obligé de commencer la saisie par la gauche... Si je veux écrire 5.000,00 par exemple, je dois avancer avec des espaces 5 fois et saisir 500000.

Alors que je voudrais que l'on commence à écrire à droite et que tout ce décale vers la gauche.

Quelqu'un a une idée ?

Cyril.

[Jipété]

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
var OldSysLocal:TSysLocale;
begin
  OldSysLocal:=SysLocale;// pour pouvoir le remettre
  SysLocale.MiddleEast := True;
  Edit1.BiDiMode := bdRightToLeft;
  SysLocale := OldSysLocal;
end;

Valable pour un Edit. Jamais essayé avec un MaskEdit.
HTH,
--
jp

[cgone]

Bonjour,

Peut-être me suis-je mal expliqué...
Actuellement cela fonctionne ainsi:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
___.___.___,__
1__.___.___,__
12_.___.___,__
123.___.___,__
123.4__.___,__
123.45_.___,__
123.456.___,__
123.456.7__,__
123.456.78_,__
123.456.789,__
123.456.789,0_
123.456.789,00

Donc, pour saisir 1234,56, il faut positionner son curseur au bon endroit (X) :

Code :

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

1
2
3
4
5
6
7
8
 
___.__X.___,__
___.__1.___,__
___.__1.2__,__
___.__1.23_,__
___.__1.234,__
___.__1.234,5_
___.__1.234,56

Or je ne veux pas avoir le truc lourd de devoir positionner le curseur au bon endroit,je veux ceci :

Code :

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

1
2
3
4
5
6
7
8
 
___.___.___,__
___.___.___,_1
___.___.___,12
___.___.__1,23
___.___._12,34
___.___.123,45
___.__1.234,56

Merci.

[cgone]

Bonjour,

J'ai trouvé une solution à peu prêt correct avec la procédure OnKeyUp de mon MaskEdit.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
procedure TFRM_Menu.MskEdt_cliLimitCredKeyUp(Sender: TObject;
  var Key: Word; Shift: TShiftState);
var
  contenu : String;
  taille : Integer;
begin
  contenu := MskEdt_cliLimitCred.Text;
  contenu := AnsiReplaceStr(contenu,'.','');
  contenu := AnsiReplaceStr(contenu,',','');
  taille := Length(contenu);
if Key in [VK_NUMPAD0, VK_NUMPAD1, VK_NUMPAD2, VK_NUMPAD3, VK_NUMPAD4,
           VK_NUMPAD5, VK_NUMPAD6, VK_NUMPAD7, VK_NUMPAD8, VK_NUMPAD9] then
  case taille of
    0, 1, 2 : ;
    3 : Insert(',',contenu, 2);
    4 : begin
          contenu := AnsiRightStr(contenu, 3)+AnsiLeftStr(contenu, 1);
          Insert(',',contenu, 3);
        end;
    5 : begin
          contenu := AnsiRightStr(contenu, 4)+AnsiLeftStr(contenu, 1);
          Insert(',',contenu, 4);
        end;
    6 : begin
          contenu := AnsiRightStr(contenu, 5)+AnsiLeftStr(contenu, 1);
          Insert(',',contenu, 5);
          Insert('.',contenu, 2);
        end;
    7 : begin
          contenu := AnsiRightStr(contenu, 6)+AnsiLeftStr(contenu, 1);
          Insert(',',contenu, 6);
          Insert('.',contenu, 3);
        end;
    8 : begin
          contenu := AnsiRightStr(contenu, 7)+AnsiLeftStr(contenu, 1);
          Insert(',',contenu, 7);
          Insert('.',contenu, 4);
        end;
    9 : begin
          contenu := AnsiRightStr(contenu, 8)+AnsiLeftStr(contenu, 1);
          Insert(',',contenu, 8);
          Insert('.',contenu, 5);
          Insert('.',contenu, 2);
        end;
   10 : begin
          contenu := AnsiRightStr(contenu, 9)+AnsiLeftStr(contenu, 1);
          Insert(',',contenu, 9);
          Insert('.',contenu, 6);
          Insert('.',contenu, 3);
        end
  else
    begin
      contenu := AnsiRightStr(contenu, 10)+AnsiLeftStr(contenu, 1);
      Insert(',',contenu, 10);
      Insert('.',contenu, 7);
      Insert('.',contenu, 4);
    end;
  end;
    MskEdt_cliLimitCred.Text := contenu;
end;

Cela fonctionne correctement mais, en contrepartie, je n'ai pas trouvé le nom des touches numériques du claviers... Dans l'aide, il y a seulement de nom des touches du pavé numérique... Quelqu'un sait où les trouver ?

Cyril