Discussion :

[XeGregory]

Bonjour

Comment peut-on intercepter la fin de saisie une cellule ?

j'ai testé les événements suivants :

- OnGetEditText : C'est trop tard, pour effectuer le contrôle de la cellule.
- OnSetEditText : C'est trop tôt, pour effectuer le contrôle de la cellule.

Code :

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

1
2
3
4
if (ACol = 1) and (Value <> 'ABC') then
 begin
   ShowMessage('Valeur incorrecte !');
 end;

Merci.

[solilog]

Salut,
Moi j'utiliserais l'évènement OnKeyPressed de ta grille:

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.grid1KeyPress(Sender: TObject; var Key: Char);
var Contenu : string;
begin
  with grid1 do
  begin
    contenu := cells[Col, row] + key;
   if (col = 2) and (contenu='ABC') then
      showmessage('Err Msg');
  end;
end;

Qq'chose comme çà.
Bon courage.

solilog

[XeGregory]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.MyGridDblClick(Sender: TObject);
var
  Value: String;
begin
  if MyGrid.Col = 1 then
   begin
     Value := InputBox('...', 'Valeur', EmptyStr));
 
     if Value <> 'ABC' then
      ShowMessage('Valeur incorrecte !')
    else
     MyGrid.Cells[1, FieldList.Row] := Value;
   end;
end;

[SergioMaster]

Bonjour,

je trouve ces solutions peu élégantes.

pourquoi ne pas utiliser le OnSelectCell ?

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
if (StringGrid1.Cells[2,ARow]<>'ABC') AND (ACol<>2) then
 begin
//  Showmessage('Error col 2');
  Canselect:=False;
  StringGrid1.Col:=2;  // force la sélection de la colonne 2 
 end;
end;