Foros Club Delphi - Mover columnas en StringGrid

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Mover columnas en StringGrid (https://www.clubdelphi.com/foros/showthread.php?t=69006)

Mover columnas en StringGrid

saludos a todos, mi duda es ¿como mover columnas en un stringgrid y ocultar otras? esto es para que el usuario pueda ver las comunas que quiera poner y pues no tener que estar modificando el codigo con cada cliente diferente.

Espero haberme explicado bien.

De antemano muchas gracias.

Hola trex2000.

Para ocultar y mostrar una columna podés usar:

Código:

procedure TForm1.OcultarCol(Col: Integer);

begin

  StringGrdrid1.ColWidths[Col]:= 0;

end;

 

procedure TForm1.MostrarCol(Col: Integer);

begin

  StringGrdrid1.ColWidths[Col]:= 80; // el valor que tenga x defecto

end;

No me queda tan claro la parte de mover las columnas...
pero a ver si esto te puede servir, o te da una idea:

Código:

procedure TForm1.CambiarCols(Col1, Col2: Integer);

var

  Aux: TStringList;

begin

  Aux:= TStringList.Create;

  Aux.Assign(StrGrd.Cols[Col1]);

  StrGrd.Cols[Col1].Assign(StrGrd.Cols[Col2]);

  StrGrd.Cols[Col2].Assign(Aux);

  Aux.Free;

end;

Saludos

Bueno para mover las columna de un lado a otro en un StringGrid usando el Mouse, pues simplemente debes poner la opcion goColMoving=True de la propiedad Options del StringGrid.;)
Saludos...:)