объяви перед implementation новый тип класса TCustomGrid:
type
Tgr=class(TCustomGrid)
наименование Gr конечно же можно поменять на любое свое более понятное слово
в событии OnCreat своей формы пишем:
procedure TForm1.FormCreate(Sender: TObject);
begin
TGr(DBGrid1).ScrollBars:=ssvertical;
end; , где DBGrid1 - наш Grid где надо убрать ScrollBars
можно вместо Vertical убрать обе полосы прокрутки: ssBoth
Удачи!
|