StringGrid.Selection.Top = 1er élément sélectionné. StringGrid.Selection.Bottom = dernier élément sélectionné. StringGrid.Selection.Left= 1ere colonne sélectionné. StringGrid.Selection.Right = derniere colonne sélectionné.
procedure TForm1.StringGrid1Click(Sender: TObject); var ligne, colonne : Integer; begin Ligne:=StringGrid1.Row; colonne:=StringGrid1.Col; showmessage('Ligne n° ' + inttostr(Ligne) + ' sur ' + inttostr(StringGrid1.RowCount) + ', colonne n° ' + inttostr(colonne) + ' sur ' + inttostr(StringGrid1.ColCount)); end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionprocedure TForm1.StringGridMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var ligne, colonne : Integer; begin StringGrid.MouseToCell(X,Y,colonne,ligne); showmessage('Ligne n° ' + inttostr(Ligne) + ' sur ' + inttostr(StringGrid.RowCount) + ', colonne n° ' + inttostr(colonne) + ' sur ' + inttostr(StringGrid.ColCount)); end;