ScrollBars beim DBGrid deaktivieren

[s-off]

Hallo,

Delphi-Quellcode:

unit Unit1;

interface

uses
   Windows,
   Messages,
   SysUtils,
   Variants,
   Classes,
   Graphics,
   Controls,
   Forms,
   Dialogs,
   StdCtrls,
   Grids,
   DBGrids;

type
   TForm1 = class(TForm)
      DBGrid1: TDBGrid;
      Button1: TButton;
      procedure Button1Click(Sender: TObject);
   private
      { Private-Deklarationen }
   public
      { Public-Deklarationen }
   end;

type
   TMyGrid = class(TCustomGrid)
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

procedure HideScrollBars(Grid: TDBGrid);
begin
   TMyGrid(Grid).ScrollBars := ssVertical;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   HideScrollBars(DBGrid1);
end;

end.

Frag mich nicht, warum es 'ssVertical' sein muss - 'ssNone' hat bei mir komischerweise nur die horizontale Laufleiste ausgeblendet.