Как убрать HSCROLL у DBGRID?
Как убрать HSCROLL у DBGRID?
Нужные нам свойства существуют, но вынесены в секцию Protected предка DBGrid: TCustomGrid. Наиболее правильным способом было бы создание класса наследника от TDBGrid с выводом ScrollBars в секцию Public, но можно обойтись и без этого следующим способом:
Type TFake=class(TCustomGrid);
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
TFake(DBGrid1).ScrollBars:=ssVertical;
end;
Автор ответа: Vit
Взято с Vingrad.ru
