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

[Andnotor]

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

Non parce que le left/top d'un contrôle est relatif à son parent. Dans le cas d'un seul panel (A moins bien sûr que le panel soit en alClient, TopLeft=0,0), ce serait:

Code :

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

1
2
showmessage('cellule top: '+ inttostr(Panel1.Top +sg1.Top +R.Top));
showmessage('cellule left: '+ inttostr(Panel1.Left +sg1.left +R.left));

Dans ce genre de cas, on a meilleur temps de passer par les coordonnées écran:

Code :

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

1
2
3
4
5
with Form1.ScreenToClient(sg1.ClientToScreen(R.TopLeft)) do
begin
  Label1.Caption:= Format('Left: %d', [X]);
  Label2.Caption:= Format('Top: %d', [Y]);
end;

[jeffy783]

Non parce que le left/top d'un contrôle est relatif à son parent. Dans le cas d'un seul panel (A moins bien sûr que le panel soit en alClient, TopLeft=0,0), ce serait:

Code :

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

1
2
showmessage('cellule top: '+ inttostr(Panel1.Top +sg1.Top +R.Top));
showmessage('cellule left: '+ inttostr(Panel1.Left +sg1.left +R.left));

Dans ce genre de cas, on a meilleur temps de passer par les coordonnées écran:

Code :

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

1
2
3
4
5
with Form1.ScreenToClient(sg1.ClientToScreen(R.TopLeft)) do
begin
  Label1.Caption:= Format('Left: %d', [X]);
  Label2.Caption:= Format('Top: %d', [Y]);
end;

Comme quoi on en apprend tous les jours...

Merci du tuyau, je vais modifier mon code de suite histoire qu'il soit 1 peu plus clair....