13 replies to this topic

[JoAnCa]

Pues eso,
Como se puede quitar la barra de desplazamiento de un DBGrid, pues necesito mostrar varios datos, (Son dos columnas y tres filas) provenientes de una tabla, que los voy a usar como informacion nada mas, como una leyenda.

Pero luce un poco fea la barra de desplazmto vertical que no se como quitar

O tal vez me puedan sugerir otra forma de como mostrar esa leyenda

[egostar]

Si solo quieres mostrar una leyenda puedes utilizar un StringGrid y hacer una rutina que pase solo 2 registros, otra chapuza .

A ver si alguien sabe de alguna propiedad de DBGrid que haga eso .

delphi

procedure TForm2.FormShow(Sender: TObject);
var
  i,j: integer;
begin
  Table1.First;
  for j := 0 to 1 do begin
      for i := 0 to 2 do begin
          stringgrid1.Cells[i,j]:= DbGrid1.Columns.Grid.Fields[i].AsString;
      end;
      Table1.Next;
  end;
end;

Salud OS

[cannabis]

Otra opción.


Salud.

[egostar]

Ah vaya, un nuevo componente derivado de DBGrid, muy bueno

Lo dicho, todo lo que hago son verdaderas chapuzas :$

Salud OS

[JoAnCa]

Muchas gracias a los dos, probaré las dos opciones 

[enecumene]

delphi

type
  TNoScrollDBGrid = class(TDBGrid)
  private
    procedure WMNCCalcSize(var Msg: TMessage);
      message WM_NCCALCSIZE;
  end;
 
procedure TNoScrollDBGrid.WMNCCalcSize(var Msg: TMessage);
const
  Scrollstyles = WS_VSCROLL or WS_HSCROLL;
var
  Style: Integer;
begin
  Style := GetWindowLong(Handle, GWL_STYLE);
  if (Style and Scrollstyles) <> 0 then
    SetWindowLong(Handle, GWL_STYLE, Style and not Scrollstyles);
  inherited;
end;

[escafandra]

Sin crear nuevos componentes se puede alterar el DBGrid normal en tiempo de ejecución:

delphi

procedure TForm1.FormShow(Sender: TObject);
begin
  SetWindowLong(DBGrid1.Handle, GWL_STYLE, GetWindowLong(DBGrid1.Handle, GWL_STYLE) and not(WS_VSCROLL or WS_HSCROLL));
end;

Saludos.

[egostar]

Ya ya, voy a tener que borrar mi chapuza

Salud OS

[JoAnCa]

Vaya, esto es lo bueno que tiene la informática y la programación ...

... Siempre hay un método más fácil de hacer algo ....    8-)

 

[JoAnCa]

Hola
Aunque resolví con el componente heredado que me recomendó cannabis, quise probar todos los metodos.

escafandra, probé tu metodo y aunque no me dio error, el DBGrid siguio con la barra vertical 

enecumene
Me paso lo mismo con tu metodo,  en que lugar hay que poner ese codigo para que funcione?, tal vez me haya faltado algo 

[enecumene]

Pues en mi caso no va en ningún evento del DBGrid, por lo tanto va "fuera":

delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids;
 
type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
type
  TNoScrollDBGrid = class(TDBGrid)
  private
    procedure WMNCCalcSize(var Msg: TMessage);
    message WM_NCCALCSIZE;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TNoScrollDBGrid.WMNCCalcSize(var Msg: TMessage);
const
  Scrollstyles = WS_VSCROLL or WS_HSCROLL;
var
  Style: Integer;
begin
  Style := GetWindowLong(Handle, GWL_STYLE);
  if (Style and Scrollstyles) <> 0 then
    SetWindowLong(Handle, GWL_STYLE, Style and not Scrollstyles);
  inherited;
end;
 
end.

Saludos.

[JoAnCa]

Pues este es mi codigo, y sigue la barra ahí

delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB;
 
type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
type
  TNoScrollDBGrid = class(TDBGrid)
  private
    procedure WMNCCalcSize(var Msg: TMessage);
    message WM_NCCALCSIZE;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TNoScrollDBGrid.WMNCCalcSize(var Msg: TMessage);
const
  Scrollstyles = WS_VSCROLL or WS_HSCROLL;
var
  Style: Integer;
begin
  Style := GetWindowLong(Handle, GWL_STYLE);
  if (Style and Scrollstyles) <> 0 then
    SetWindowLong(Handle, GWL_STYLE, Style and not Scrollstyles);
  inherited;
end;
 
end.

Será que lo estas probando sin datos 

[enecumene]

Bueno, prueba con este sencillo:

delphi

ShowScrollBar(DBGrid1.Handle, SB_VERT, false);

[JoAnCa]

Ahora si funcionó bien 

Pero como estoy usando el evento OnDrawColumnCell, para colorear las celdas, tuve que poner ese codigo, dentro de este evento, si no, me volvia a poner la barra.