Delphi - база знаний

Как убрать 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





Содержание раздела