Bonsoir
Voici comment deplacer une ligne ou une colonne dans un StringGrid, tire de la FAQ Delphi
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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Move_Row_Col.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
class TPublicStringGrid: public TCustomGrid
{
    public:
        using TCustomGrid::MoveRow;
        using TCustomGrid::MoveColumn;
};
// Déplace la première ligne (Row=0) vers la seconde (Row=1)
((TPublicStringGrid*)StringGrid1)->MoveRow(0,1);
//Déplace la première colonne (Col=0) vers la seconde (Col=1)
((TPublicStringGrid*)StringGrid1)->MoveColumn(0,1);
}
//---------------------------------------------------------------------------
 
// Comment déplacer une ligne dans une TStringGrid ?
 
// Il suffit de rendre publiques les méthodes MoveRow et MoveColumn de la
// classe TCustomGrid dont hérite la classe TStringGrid à travers le
// transtypage de cette dernière en une classe dérivée déclarée dans la même unité :
// Il est a noter que si les cellules vers lesquelles on déplace avec MoveRow
// ou MoveColumn ne sont pas vides, les valeurs seront permutées avec celles
// que l'on veut déplacer.