Discussion :

[jeffy783]

Bonjour a tous...

Voici mon problème : je cherche a récupérer dans une variable la position ( top , left) de la cellule sélectionnée dans un stringgrid. J'ai eu beau chercher sur différents forums et examiner pas mal de codes, j'ai pas trouver quelque chose pouvant me mettre sur la voie

Quelqu'un aurait une idée?

Merci beaucoup d'avance...

[neodelphi2007]

Salut,

Tu veux Top et Left en pixel ?

Voici une proposition de code en utilisant l'évenement OnSelectCell et la méthode CellRect du composant TStringGrid:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
                                               var CanSelect: Boolean);
          var
             R:TRect;
begin
     R:=StringGrid1.CellRect(ACol, ARow);
 
     // afficher la valeur Left en pixel de la cellule sélectionnée
     Label1.Caption:='Left:'+IntToStr(R.Left);
 
     // afficher la valeur Top en pixel de la cellule sélectionnée
     Label2.Caption:='Top:'+IntToStr(R.Top);
end;

[jeffy783]

Salut,

Tu veux Top et Left en pixel ?

Voici une proposition de code en utilisant l'évenement OnSelectCell et la méthode CellRect du composant TStringGrid:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
                                               var CanSelect: Boolean);
          var
             R:TRect;
begin
     R:=StringGrid1.CellRect(ACol, ARow);
 
     // afficher la valeur Left en pixel de la cellule sélectionnée
     Label1.Caption:='Left:'+IntToStr(R.Left);
 
     // afficher la valeur Top en pixel de la cellule sélectionnée
     Label2.Caption:='Top:'+IntToStr(R.Top);
end;

Merci beaucoup... C'est exactement ce dont j'avait besoin...

En fait le code renvoie la position de la cellule dans le stringgrid.
Pour savoir la position de la cellule dans la forme, un simple calcul suffit :

showmessage('cellule top: '+ inttostr(sg1.Top+R.Top));
showmessage('cellule left: '+ inttostr(sg1.left+R.left));

Comme quoi je suis encore loin d'avoir fait le tour de Delphi...

Encore merci a toi neodelphi2007 et bonne journee..

[Andnotor]

Ton calcul fonctionne si la fiche est le parent du StringGrid. Sinon ton résultat sera faussé (ex. StringGrid dans un Panel) .

[NABIL74]

bonsoir,

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
var
R:TRect;
begin
R:=StringGrid1.CellRect(ACol, ARow);

// afficher la valeur Left en pixel de la cellule sélectionnée
Label1.Caption:='Left:'+IntToStr(R.Left);

// afficher la valeur Top en pixel de la cellule sélectionnée
Label2.Caption:='Top:'+IntToStr(R.Top);
end;

showmessage('cellule top: '+ inttostr(sg1.Top+R.Top));
showmessage('cellule left: '+ inttostr(sg1.left+R.left));

Ton calcul fonctionne si la fiche est le parent du StringGrid. Sinon ton résultat sera faussé (ex. StringGrid dans un Panel)

@Andnotor: le calcul fonctionne correctement même si un "StringGrid" est dans un "panel".

A+

NABIL74

[jeffy783]

bonsoir,






@Andnotor: le calcul fonctionne correctement même si un "StringGrid" est dans un "panel".

A+

NABIL74

Dans un panel je ne sais pas mais dans mon cas il se trouve dans pagecontrol et le calcul est bel et bien faussé mais je l'ai corriger depuis en jouant
sur la position du pagecontrol dans la forme ainsi que sur ses dimensions... Enfin ca marche quoi