Problème de Scroll sur Une TStringGrid en mode saisie

Version imprimable

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

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.

19/10/2006, 18h56
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.
19/10/2006, 21h18
OutOfRange

Salut

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

Bon, sans doute que non... ;)
20/10/2006, 01h07
Bruno@Chrysis

Ou alors c'est que ed_Saisie ce n'est pas un TEdit, va savoir...
20/10/2006, 13h13
Delphi-ne

Citation:

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

C'est un TEdit

Citation:

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
23/10/2006, 09h50
Delphi-ne
Citation:

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:

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.