bloquer saisie dbgringRésolu

Question

bonjour,
serait t'il possible de n'autoriser que le saisie des nombres de 0 a 9 dans un champs d'un BDgrind
lorsque je remplie min et maxvalue si je tape un nombre au dessus il y une erreur
merci d'avance

f0xi · Accepted Answer

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if autorise and (not (key in ['0'..'9']))  then key:=#0;
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  autrorise := column.Field.DataType=Ftinteger;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  autorise:=false;
end; 

<hr size="2" width="100%" />

jerome57440 · Answer

comment autoriser que les nomcres de 0 a 9 dans un celule d'un dbgring

cs_matrix1 · Answer

il te faut ajouter unévénement onchangecellul comme dans un Tedit ou tu peut faire ça

var
  Form1: TForm1;
  autorise:boolean;
implementation

{$R *.dfm}

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if autorise =true then
if not (key in ['0'..'9'])  then key:=#0;
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
if column.Field.DataType=Ftinteger then
autorise :=true else
autorise:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
autorise:=false;
end; 

comme ça tu peut tu aurorise les nombre juste dans l'enregistrement de type integer

Bloquer saisie dbgring

3 réponses

Votre réponse

Discussions similaires