Ver Mensaje Individual
  #2  
Antiguo 17-02-2009
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
¡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
Responder Con Cita