Discussion :

[audreyb]

Bonjour à tous,
Je me remets doucement à Delphi, mais j'ai oublié comment réaliser deux choses :
- comment formater un texte pour les numéros de téléphone : dans ma base j'aurais bien un tel du style 0333338944 mais en saisie je souhaiterais avoir ca sous la forme 03-33-33-89-44
- je sais qu'on peut attribuer à un bouton une lettre du clavier : du genre je veux que lorsque l'utilisateur fera entrer cela validera un bouton 'OK' par exemple...
Merci de votre aide à une débutante en détresse.

[sjrd]

- je sais qu'on peut attribuer à un bouton une lettre du clavier : du genre je veux que lorsque l'utilisateur fera entrer cela validera un bouton 'OK' par exemple...

Button1.Caption := '&Faire qqch'
Faire qqch

[portu]

comment formater un texte pour les numéros de téléphone : dans ma base j'aurais bien un tel du style 0333338944 mais en saisie je souhaiterais avoir ca sous la forme 03-33-33-89-44

Un TmaskEdit pourait faire l'affaire pour avoir en saisie 03-33-33-89-44 , ensuite pour l'enregistrement va falloir traiter le texte du TmaskEdit (supprimer les tirets quoi).

- je sais qu'on peut attribuer à un bouton une lettre du clavier : du genre je veux que lorsque l'utilisateur fera entrer cela validera un bouton 'OK' par exemple...

En effet , c'est dans l'evenement OnKeyDown (ou up)
exemple

Code :

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

1
2
3
4
 
If Key = VK_Return then begin
Button1.click;
end;

Maintenant, il faut le mettre dans l'evenement d'un control adéquat.
Je veux dire par là que si tu souhaite qu'a chaque fois qu'on appuie sur Enter , a partir de n'importe quel control, le bouton se presse, là, il faudra le mettre dans l'évenement OnKeyDown (ou Up) de la fiche. Mais si tu veux qu'a chaque fois qu'on presse sur Enter lorsque le focus est sur un control bien particulier, là, il faudra mettre le code dans l'efveneemnt OnKeyDown (ou up) de ce control.

Voila, j'espere que j'ai bien expliqué le bazar

Ps : Si tu geres les touches par les évenements de ta fiche (Form1 ) , tu devras mettre à TRUE la propriété KeyPreview.

[Sub0]

- comment formater un texte pour les numéros de téléphone : dans ma base j'aurais bien un tel du style 0333338944 mais en saisie je souhaiterais avoir ca sous la forme 03-33-33-89-44

Les fonctions suivantes permettent l'ajoût des séparateurs à mesure de l'édition (évènement "onKeyUp" du TEdit).
La fonction "Fusion" supprime tous les séparateurs de la chaîne.
La fonction "Separe" ajoute les tirets (x MOD 2).

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
{----------------------------------------------------------------}
FUNCTION Fusion(st:String):String;
VAR x:Integer;
BEGIN
 Result:=''; IF(st='')THEN EXIT;
 FOR x:=1 TO Length(st)DO
  IF(st[x]<>'-')THEN Result:=Result+st[x];
END;
 
 
{----------------------------------------------------------------}
FUNCTION Separe(st:String):String;
VAR x:Integer;
BEGIN
 st:=Fusion(st);
 Result:=''; IF(st='')THEN EXIT;
 FOR x:=1 TO Length(st)DO
  IF(NOT Boolean(x MOD 2))AND(x<Length(st))THEN
    Result:=Result+st[x]+'-' ELSE Result:=Result+st[x];
END;
 
 
{----------------------------------------------------------------}
PROCEDURE TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
VAR x:Integer;st:String;
BEGIN
 st:=Edit1.Text;
 x:=Edit1.SelStart;
 Edit1.Text:=Separe(Edit1.Text);
 Edit1.SelStart:=x+(Length(Edit1.Text)-Length(st));
END;

à+

[cpdump]

Un TmaskEdit pourait faire l'affaire pour avoir en saisie 03-33-33-89-44 , ensuite pour l'enregistrement va falloir traiter le texte du TmaskEdit (supprimer les tirets quoi).

Il suffit de décocher 'Enregister les caractères littéraux' pour les tirets ne soient pas dans le texte. Il y a même un masque prédéfini pour les numéros de téléphone.