如何隐藏德尔福在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;