Как убрать HSCROLL у DBGRID?

Delphi , Компоненты и Классы , TScrollBox

Как убрать HSCROLL у DBGRID?

Нужные нам свойства существуют, но вынесены в секцию Protected предка DBGrid: TCustomGrid. Наиболее правильным способом было бы создание класса наследника от TDBGrid с выводом ScrollBars в секцию Public, но можно обойтись и без этого следующим способом:

Code:



        Type TFake=class(TCustomGrid);

         

        implementation

         

        {$R  *.dfm}

         

        procedure TForm1.Button1Click(Sender:  TObject);

        begin

        TFake(DBGrid1).ScrollBars:=ssVertical;

        end;

Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)
Взято с Vingrad.ru http://forum.vingrad.ru

Убрать HSCROLL у DBGRID можно создав тип TFake, наследуясь от TCustomGrid, и в методе Button1Click изменить свойство ScrollBars на ssVertical.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: TScrollBox ::

Время компиляции файла: 2024-08-19 13:29:56
2024-11-21 11:40:40/0.0047848224639893/1