Discussion :

[petitcoucou31]

Salut a tous !
Je cherche une methode pour connaitre la position du curseur dans une cellule d'un TstringGrid qui se trouve en mode edition .
Le but etant d'interdire la saisie de certains caracteres en fonction de leur position dans le texte.

Merci et bye !

[sfpx]

Pas trop certain de comprendre l'utilité de connaître la position du curseur.

J'ai probablement mal compris ce que tu veux faire mais supposons que tu veuilles interdire le caractère 'a' pour la troisème lettre de la cellule alors...

Code :

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

1
2
3
4
5
6
 
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
   if (key='a') and (length(stringgrid1.Cells[stringgrid1.Col,stringgrid1.Row])=2)
then   key:=#0;
end;

[petitcoucou31]

Non pas aussi simple ,

en fait imagine la chaine suivante 1254.24 et l'utilisateur appuye sur la toume "m"

je dois interdire la saisie si elle a lieu avant le point et l'autoriser si elle a lieu apres le point

1254.24m => autorisé.

125m4.24 => interdit .

et comme je teste tout dans le OnKeypress de mon tableau ,je voudrais connaitre la position du curseur ( insersion ) pour faire mes test !

c'est surement plus comprehensible avec un exemple .. lol

bye

[sfpx]

ah ok je vois

Utilise le "inplaceeditor" et la propriété selstart pour obtenir la position du curseur

Tu devras créer un descendant de tstringgrid et rendre la propriété inplaceeditor publique.

Par la suite tu peux avoir la position du curseur avec inplaceeditor.selstart

[Nono40]

Non, on peut le connaitre sans surchage :

TInplaceEdit(StringGrid.Components[0])
Tester ensuite s'il est différent de Nil ( être effectivement en modification de cellule )

[sfpx]

Encore plus facile alors

[petitcoucou31]

Alors çà semble fesable !! par contre si je pouvais avoir plus detail sur le "InplaceEditor" :
Qui est ce : un composant , une proprieté ...

Je suis en manque d'info là , merci d'avance pour les explications..
bye

[sfpx]

On a pas mal tout dit je crois

Petit exemple

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if TInplaceEdit(StringGrid1.Components[0]) <>nil then
 form1.Caption:=inttostr(TInplaceEdit(StringGrid1.Components[0]).selstart);
 
end;

[petitcoucou31]

Oui c'est impec pour les Stringgrid de delphi ! çà marche impec !

mais je suis avec des tableaux de chez TMS et lui n'aime pas du tout le TimplaceEdit .

Je pense qu'il gere cela autrement .. et je ne trouve pas l'equivalent chez le tableau de TMS . j'utilise deja un editeur associé a ma grille , mais qui lui me donne aucune propriété.

Merci quand même a tous je vais voir ce que je vais faire :
- Repasser par une grille normale ( delphi ) et gerer mes cellules tous en perdant les avantage de la grille TMS .
- Ou garder ma grille TMS et pas gerer mes cellules comme je le voulais .

bye.

[sfpx]

Quel editortype utilises-tu pour les cellules dans lesquelles tu désires connaître la position du curseur ?

Si c'est ednormal alors c'est très simple tu fais
advstringgrid1.NormalEdit.SelStart

btnedit.selstart pour un edit+bouton
spinedit.selstart pour un edit+spin

si c'est edcustom regarde du côté de la propriété editlink

[petitcoucou31]

avant j'avais un edFloat et comme cela ne gerait pas mes saisies de valeurs reelles a ma convenant je suis repassé par un EdNormal et j'ai voulu gerer ma saisie !!

Quand je pense a que j'ai galeré presque 1 jour entier sans penser au SelSart de mon editeur en situe !!!!!!!!!!
.

Desfois on ferait mieux de ce coucher !!

merci a toi