ScrollBars unterdrücken

[daddy]

Beim DBGrid funktioniert es durch die Nutzung der folgenden eigenen Komponente:

Delphi-Quellcode:

Type 
  TGridWithoutVScroll = class(TDBGrid)
  private
    procedure WMNCCalcSize(var Msg: TMessage); message WM_NCCALCSIZE;
  end;

procedure TGridWithoutVScroll.WMNCCalcSize(var Msg: TMessage);
var Style : Integer;
begin
  Style := GetWindowLong(Handle, GWL_STYLE);
  SetWindowLong(Handle, GWL_STYLE, Style and not WS_VSCROLL);
  inherited;
end; // WMNCCalcSize

Gruß, Daddy