En déplaçant les lignes et les colonnes d'un stringgrid par code

En deplaçant les lignes et les colonnes d'un stringgrid par code

En deplaçant les lignes et les colonnes d'un stringgrid par code : Plusieurs milliers de conseils pour vous faciliter la vie.

Faire de MoveColumn et MoveRow public sans l'installation d'un nouveau composant
en Deplaçant les lignes et les colonnes d'un StringGrid par le code
L'utilisateur peut deplacer les lignes et les colonnes d'un StringGrid avec la souris. Il peut egalement etre fait par code? Dans l'aide pour TCustomGrid vous pouvez voir les methodes MoveColumn et MoveRow, mais ils sont caches dans TStringGrid. Nous pouvons les rendre a nouveau accessible par le sous-classement TStringGrid et de la declaration de ces methodes dans le public:
type
& ! & ! & ! & nbsp TStringGridX = classe(TStringGrid)
& ! & ! & ! & nbsp public
& ! & ! & ! & ! & ! & nbsp procedure MoveColumn(FromIndex, ToIndex: Longint)
& ! & ! & ! & ! & ! & nbsp procedure MoveRow(FromIndex, ToIndex: Longint)
& ! & ! & ! & nbsp fin
La mise en œuvre de ces methodes consiste simplement en invoquant la methode correspondante de l'ancetre:
procedure TStringGridX.MoveColumn(FromIndex, ToIndex: Entier)
& nbsp & nbsp commencer
& ! & ! & ! & nbsp herite
& nbsp & nbsp fin
& nbsp & nbsp procedure TStringGridX.MoveRow(FromIndex, ToIndex: Entier)
& nbsp & nbsp commencer
& ! & ! & ! & nbsp herite
& nbsp & nbsp fin
Vous n'avez pas a inscrire ce composant dans la Palette de Composants. Utiliser un TStringGrid ou tout TCustomGrid descendant, et quand vous en avez besoin pour appeler ces methodes, tout simplement jete l'objet de la nouvelle classe. Par exemple:
procedure TForm1.Button1Click(Sender: TObject)
& nbsp & nbsp commencer
& ! & ! & ! & nbsp TStringGridX(StringGrid1).MoveColumn(1, 3)
& nbsp & nbsp fin
Vous pouvez trouver le code source complet de cet article dans les archives qui accompagne le Pascal Newsletter #25