如何隱藏德爾福在dbgrid上的水平滾動

Question

如何在Delphi7中隱藏或移除在dbgrid上水平滾動。我嘗試通過改變寬度onResize，但它不正確的方式。

Answer 1

試試這個：

EnableScrollBar(DBGrid1.Handle,SB_HORZ,ESB_DISABLE_BOTH); 
ShowScrollBar(DBGrid1.Handle,SB_HORZ,False); 

的問題是，禁用滾動，但它顯示:-(

其他選項是：

TDBgrid2 = class(TDBgrid) 
    private 
    procedure WMNCCalcSize(var msg: TMessage); message WM_NCCALCSIZE; 
    end; 
    . 
    . 
procedure TDBgrid2.WMNCCalcSize(var msg: TMessage); 
var 
    style: Integer; 
begin 
    style := getWindowLong(handle, GWL_STYLE); 
    if (style and WS_HSCROLL) <> 0 then 
    SetWindowLong(handle, GWL_STYLE, style and not WS_HSCROLL); 
    inherited; 
end; 

更復雜，但它是完美的解決方案

Answer 2

大衛的完美解決方案的後續工作您不必改變e .dfm中的類如果使用相同的類型名稱

TDBgrid = class(DBGrids.TDBgrid) 
    private 
    procedure WMNCCalcSize(var msg: TMessage); message WM_NCCALCSIZE; 
    end;