Moviendo las filas y columnas de un stringgrid por el código

Moviendo las filas y columnas de un stringgrid por el codigo

Moviendo las filas y columnas de un stringgrid por el codigo : Multi-millones de consejos para hacer su vida mas facil.

Hacer MoveColumn y MoveRow publico sin necesidad de instalar un nuevo componente
Mover filas y columnas de un StringGrid por el codigo
El usuario puede mover las filas y columnas de un StringGrid con el raton. Puede tambien ser hecho por el codigo? En la ayuda para TCustomGrid usted puede ver los metodos MoveColumn y MoveRow, pero que se ocultan en TStringGrid. Podemos hacer que el acceso a ellos de nuevo por subclases de TStringGrid y declarar estos metodos publicos:
tipo
& nbsp & nbsp & nbsp & nbsp TStringGridX = clase(TStringGrid)
& nbsp & nbsp & nbsp & nbsp publica
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp procedimiento MoveColumn(FromIndex, ToIndex: Longint)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp procedimiento MoveRow(FromIndex, ToIndex: Longint)
& nbsp & nbsp & nbsp & nbsp final
La aplicacion de estos metodos consiste simplemente invocando al metodo correspondiente del antepasado:
procedimiento TStringGridX.MoveColumn(FromIndex, ToIndex: Integer)
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp heredado
& nbsp & nbsp final
& nbsp & nbsp procedimiento TStringGridX.MoveRow(FromIndex, ToIndex: Integer)
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp heredado
& nbsp & nbsp final
Usted no tiene que registrar este componente en la Paleta de Componentes. El uso de un TStringGrid o cualquier TCustomGrid descendiente, y cuando es necesario llamar a estos metodos simplemente convertir el objeto a la nueva clase. Por ejemplo:
procedure TForm1.Button1Click(Sender: TObject)
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp TStringGridX(StringGrid1).MoveColumn(1, 3)
& nbsp & nbsp final
Usted puede encontrar el codigo fuente completo de este articulo en el archivo que acompaña a la Pascal Boletin #25