DBGrid & Scrollbar

[Bummi]

ich kenne den Wunsch umgekehrt .... in eine eigene Komponente packen mit Properties für (nicht)sichtbar Vert/Horz

oder wie unten schnell mal hinfaken

Delphi-Quellcode:

type
  TDBGrid=Class(DBgrids.TDBGrid)

  private
    procedure WMNCCalcSize(var Msg: TMessage); message WM_NCCALCSIZE;
  End;
  TForm5 = class(TForm)
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
  private
    { Private-Deklarationen }

  public
    { Public-Deklarationen }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}
procedure TDBGrid.WMNCCalcSize(var Msg: TMessage);
var
  Style: Integer;
  Scrollstyles :Integer;
begin
  Scrollstyles := 0;
  //if  FHideScrollbarVert then
  Scrollstyles:=Scrollstyles or   WS_VSCROLL;
  //if  FHideScrollbarHorz then
  Scrollstyles:=Scrollstyles or   WS_HSCROLL;

  Style := GetWindowLong(Handle, GWL_STYLE);
  if (Style and Scrollstyles) <> 0 then
    //SetWindowLong(Handle, GWL_STYLE, Style and not Scrollstyles);  // nie
    SetWindowLong(Handle, GWL_STYLE, Style or Scrollstyles);         // immer  
  inherited;
end;