ScrollBars unterdrücken

[little-x]

Wie kann ich in verschiedenen Controls Scrollbars unterdrücken, die automatisch kommen, sobald der Inhalt zu groß ist?

Aktuell kämpfe ich mit dem Problem in einem DBGrid. Ich habe das Gefühl dass das überhaupt nicht geht.

Viele Grüße

[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

[little-x]

Hab die Sache gleich um die HSCROLLBARS erweitert.
Die Sache mit den Windows-APIs ist mir immer noch nicht allzu geläufig.

Grüße
Steffen