DBGrid & Scrollbar

[DeddyH]

Das kann man "etwas" kürzen:

Delphi-Quellcode:

procedure TDBGrid.WMNCCalcSize(var Msg: TMessage);
const
  BOTHSCROLLSTYLES = WS_VSCROLL or WS_HSCROLL;
begin
  //SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and not BOTHSCROLLSTYLES); // nie
  SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) or BOTHSCROLLSTYLES); // immer
  inherited;
end;