Как удалить вертикальную полосу прокрутки (скроллбар) из DBGrid?

Previous  Top  Next

    
 

 

Для этого необходимо переопределить метод Paint. Внутри метода Paint Вы должны вызвать API процедуру SetScrollRange для установки минимального и максимального значений скроллирования в ноль (тем самым запретив скроллбар), а затем вызвать inherited. Следующий код, это unit содержащий новый компонент под названием TNoScrollBarDBGrid, который делает это.

Code:

type

TNoScrollBarDBGrid = class(TDBGrid)

protected

   procedure Paint; override;

end;

 

procedure register;

 

implementation

 

procedure register;

begin

RegisterComponents('Samples', [TNoScrollBarDBGrid]);

end;

 

{ TNoScrollBarDBGrid }

 

procedure TNoScrollBarDBGrid.Paint;

begin

SetScrollRange(Handle, SB_VERT, 0, 0, false);

inherited;

end;

 

 

©Drkb::03071

       

Взято с http://delphiworld.narod.ru