Discussion :

[Delphi-ne]

J'utilise un TStringGrid dans laquelle l'utilisateur saisit via une combobox ou un TEdit.
J'ai utilisé l'évènement OnDraxCell.

Code :

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

1
2
3
4
5
6
7
8
9
   If (ARow = Grille.Row) And
      (ACol = Grille.Col) Then Begin
         ed_Saisie.Visible   := True;
         ed_Saisie.Top       := Grille.Top  + Rect.Top;
         ed_Saisie.Left      := Grille.Left + Rect.Left + 2;
         ed_Saisie.Width     := Rect.Right  - Rect.Left;
         ed_Saisie.Text      := Trim(GrilleCadreCellule(ACol, Grille.Cells[ACol, ARow]));
         ed_Saisie.SetFocus;
      End;

Cela fonctionne. Par contre si la cellule dans laquelle je veux saisir se situe sur la dernère ligne visible à l'écran elle ne récupère pas la bonne valeur dans le TEdit.
Soit il y a un moyen d'empècher cela soit je simule un scroll pour faire avancer ma grille d'une ligne.
Je sais le faire en VB avec une Flexgrid mais pas sous Delphi.

[Graffito]

Bonjour,

Il est possible que, dans le cas particulier de la dernière ligne, le ondrawcell se fasse avant le changement de col et de row.

Il faudrait essayer d'appeler systématiquement le ondrawcell dans l'event onSelectCell.

[OutOfRange]

Salut

euh... ce ne serait pas plus simple, une TStringGrig avec goEditing:=true ?

Bon, sans doute que non...

[Bruno@Chrysis]

Ou alors c'est que ed_Saisie ce n'est pas un TEdit, va savoir...

[Delphi-ne]

Ou alors c'est que ed_Saisie ce n'est pas un TEdit, va savoir...

C'est un TEdit

ce ne serait pas plus simple, une TStringGrig avec goEditing:=true

Dans mon exemple j'ai par lé d'un champ de saisie. En fait il réagit à certaines règles notamment en matière de longueur et surtout il se transforme en CheckBox en focntion de certains critères.

Je vais essayer ce que dit Graffito

[Delphi-ne]

Il faudrait essayer d'appeler systématiquement le ondrawcell dans l'event onSelectCell.

Je n'ai pas su passer le parametre TRect.
Je m'en suis sorti en ajoutant la ligne suivante dans le onEnter du TEdit :

Code :

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

1
2
3
ed_Saisie.Text := Trim(GrilleCadreCellule(Grille.Col,
                                             Grille.Cells[Grille.Col,
                                                          Grille.Row]));

Cela étant je trouve que c'est un comportement anormal de Delphi.
Merci de votre aide.