Discussion :

[abdelghani_k]

Bonjour,

Je veux contrôler et formater la saisie d'une colonne d'un StringGrid en format numérique. Comment je peux le faire ?

Merci.

[BuzzLeclaire]

salut,

Tu peux essayer comme cela

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
// ...
  private
    { Private declarations }
    MaCol,MonRow: integer;
// ...
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  MaCol := Acol;
  Monrow := aRow;
end;
 
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if (MaCol = 1) then // uniquement la colonne 1
    if Not (Key in ['0'..'9',',',#8,#32]) then Key := #0; // Autorise les chiffres et la virgule, supprimer et retour
end;

[Just-Soft]

Salut;

- pour le contrôle je rejoins l'idée de Buzz
- pour le formatage tu peux utiliser la fonction Format.

Bonne chance.

[OutOfRange]

Pas mal BuzzLeclaire

Et ça marche aussi avec un TEdit... j'ai testé