Scollbar bei Grid ausschalten

[kluckweb]

Hallo zusammen,

gibt es eine Möglichkeit die Scollbars bei Grids abzuschalten?

Viele Grüße und Danke im Voraus

[Surrounder]

Welches Grid genau? Bei den meisten gibt es die Option ScrollBars und man kann da wählen zwischen Both / horizontal / vertical / none

[kluckweb]

Es geht um ein DBCtrlGrid.

Sorry, das hatte ich vergessen mit rein zu schreiben.

[agm65]

push !

[Jens Schumann]

Hallo,
einen Nachfahren von TDBGrid basteln und UpdateScrollbars überschreiben

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, Grids, DBGrids, DB, DBTables, XPMan;

type
  TMyDBGrid = class(TDBGrid)
  protected
    procedure UpdateScrollBar; override;
  end;

  TForm1 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    DBImage1: TDBImage;
    DBMemo1: TDBMemo;
    Button1: TButton;
    XPManifest1: TXPManifest;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    FDBGrid : TMyDBGrid;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
  FDBGrid:=TMyDBGrid.Create(Self);
  FDBGrid.Parent:=Self;
  FDBGrid.Left:=32;
  FDBGrid.Top:=16;
  FDBGrid.DataSource:=DataSource1;
  FDBGrid.Scrollbars:=ssNone; // schaltet nur den horizontalen Scrollbar aus
end;



{ TDBGridScrollbarsHack }

procedure TMyDBGrid.UpdateScrollBar;
begin
//  inherited;
// Hier nichts machen. Dadurch wird der vertikale Scrollbar unterdrückt
end;

end.

[agm65]

ja es geht hier um ein dbctrl grid

[marabu]

Haller Peter,

auch bei TDBCtrlGrid wirst du wohl eine Ableitung machen müssen, allerdings muss da mindestens noch die private Methode AdjustSize() überschrieben werden - eventuell noch mehr. Ohne ScrollBar wird diese Komponente aber etwas ärmlich daher kommen. Warum willst du ihr das antun? Der ScrollBar ist doch ein wesentlicher Teil des Interaktionsmodells dieser Komponente.

Grüße vom marabu

[agm65]

ja das stimmt schon, aber ich hab dann 2 scrollbars, 1 mal vom dbctrlgrid und einmal von der scrollbox die ich als frame parent nehmen. ich hab aber grade überlegt vll die scrollbar der scrollbox nur beim laden meines frames mit dem dbctrl grid abzustellen.
sonst scrollt man sich ja dumm ;)

[agm65]

eat this

Delphi-Quellcode:

ShowScrollBar(DBCtrlGrid1.Handle, SB_VERT, False);//to hide
ShowScrollBar(DBCtrlGrid1.Handle, SB_VERT, True);//to show