No mover columnas de un DBGrid

[bbjb]

Buenas a tod@s,

Quiero evitar que se pueda cambiar el orden de las columnas en un dbgrid y me gustaría saber si existe alguna propiedad para hacerlo, es decir, para el dbgrid:

Nombre    Edad     Localidad    Provincia
jose       22       Aranjuez     Madrid
manolo     31       Pirlo        Madrid

Evitar que el usuario pueda coger la columna "edad" y la coloque en primera posición.

Un saludo y gracias.

[roman]

¡Vaya! Nunca me había percatado de esto. Al parecer, la clase TDBGrid unifica en la opción dgColumnResize las opciones goColMoving y goColSizing de su ancestro TCustomGrid.

Entonces, puedes evitar el movimiento de columnas pero a costa de evitar también el cambio de tamaño.

Una opción un poco sucia de evitar sólo el cambio de posición es así:

Código Delphi [-]
type
  // Tipo de datos para poder acceder a las propiedades proptegidas de TCustomGrid
  THackGrid = class(TCustomGrid);

// Quitar la opción goColMoving en el constructor del formulario
procedure TForm1.FormCreate(Sender: TObject);
begin
  with THackGrid(DBGrid1) do
    Options := Options - [goColMoving];
end;

Desconozco si tiene algún efecto colateral.

// Saludos

[bbjb]

Gracias Román,

Probaré y os informaré de los efectos "colaterales" que pueda tener.