TStringGrid - peut-on limiter le nombre caractères saisis dans les cellules ?
Résolu
JustForNous
Messages postés
4
Date d'inscription
mardi 26 octobre 2004
Statut
Membre
Dernière intervention
19 octobre 2005
-
13 oct. 2005 à 11:31
DRJEROME Messages postés 436 Date d'inscription jeudi 9 janvier 2003 Statut Membre Dernière intervention 5 février 2015 - 15 oct. 2005 à 11:05
DRJEROME Messages postés 436 Date d'inscription jeudi 9 janvier 2003 Statut Membre Dernière intervention 5 février 2015 - 15 oct. 2005 à 11:05
A voir également:
- TStringGrid - peut-on limiter le nombre caractères saisis dans les cellules ?
- Lazarus tstringgrid ✓ - Forum Delphi / Pascal
- Delphi tstringgrid ✓ - Forum Delphi / Pascal
- Tstringgrid ✓ - Forum Delphi / Pascal
- Comment déplacer (vers le haut et vers le bas) une ligne dans un stringGrid? ✓ - Forum Delphi / Pascal
- Tstringgrid delphi ✓ - Forum Delphi / Pascal
3 réponses
JustForNous
Messages postés
4
Date d'inscription
mardi 26 octobre 2004
Statut
Membre
Dernière intervention
19 octobre 2005
15 oct. 2005 à 10:25
15 oct. 2005 à 10:25
Merci DrJerome
J'ai modifié légèrement ta réponse pour prendre en compte la touche BackSpace qui doit pouvoir fonctionner même si la longueur est atteinte. De plus la gestion de Stop doit se faire entièrement dans StringGrid1KeyPress pour fonctionner correctement. Ce qui donne :
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
begin
Stop:(ACol 2) and (Length(Value) >= 3)
end;
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Stop and (Ord(Key) <> 8) then Key := chr(0);
end;
J'ai modifié légèrement ta réponse pour prendre en compte la touche BackSpace qui doit pouvoir fonctionner même si la longueur est atteinte. De plus la gestion de Stop doit se faire entièrement dans StringGrid1KeyPress pour fonctionner correctement. Ce qui donne :
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
begin
Stop:(ACol 2) and (Length(Value) >= 3)
end;
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Stop and (Ord(Key) <> 8) then Key := chr(0);
end;
DRJEROME
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015
15 oct. 2005 à 08:38
15 oct. 2005 à 08:38
<HR>
var
Form1: TForm1;
Stop:boolean;
implementation
{$R *.DFM}
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
ARow: Integer; const Value: String);
begin
if (ACol=2) and (Length(Value)=3) then Stop:=true;
end;
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Stop then Key:=chr(0);
end;
procedure TForm1.StringGrid1Click(Sender: TObject);
begin
Stop:=false;
end;
<HR>
dans cet exemple si la colonne est la n°2 on ne peut rentrer au-delà de 3 caractères
(il y a certainement d'autres solutions)
Transforme le code à ta guise
N'oubliez pas de cliquer sur Réponse acceptée si c'est OK
DrJerome
var
Form1: TForm1;
Stop:boolean;
implementation
{$R *.DFM}
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
ARow: Integer; const Value: String);
begin
if (ACol=2) and (Length(Value)=3) then Stop:=true;
end;
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Stop then Key:=chr(0);
end;
procedure TForm1.StringGrid1Click(Sender: TObject);
begin
Stop:=false;
end;
<HR>
dans cet exemple si la colonne est la n°2 on ne peut rentrer au-delà de 3 caractères
(il y a certainement d'autres solutions)
Transforme le code à ta guise
N'oubliez pas de cliquer sur Réponse acceptée si c'est OK
DrJerome
DRJEROME
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015
15 oct. 2005 à 11:05
15 oct. 2005 à 11:05
tout à fait, vaut mieux l'avoir cette touche Backspace ;)
DrJerome
DrJerome
