Scroll в DBGrid
Есть DBGrid. Все данные умещаются в сетку и как бы скролинг не нужен.. но.. как избавиться от него не знаю. В TCustomGrid есть свойство ScrollBars в котором можно явно указать нужное значение. TDBGrid наследуется от TCustomGrid, однако этого свойства нет.. Пожалуйста, подскажите как сделать красиво )
С Уважением, Евгения..
С Уважением, Евгения..
Цитата:
On 2002-03-17 2117, zenbka wrote
Есть DBGrid. Все данные умещаются в сетку и как бы скролинг не нужен.. но.. как избавиться от него не знаю. В TCustomGrid есть свойство ScrollBars в котором можно явно указать нужное значение. TDBGrid наследуется от TCustomGrid, однако этого свойства нет.. Пожалуйста, подскажите как сделать красиво )
С Уважением, Евгения..
Оно есть, только оно protected. Можно сделать так
type
TCGrid=class(TCustomGrid)
end;
.
.
.
begin
TGrid(DBGrid1).ScrollBars=ssNone;
.
.
end;
Получаешь доступ к protected.
Хотя можно сделать и по правильному, создать свой класс наследника от TCustomDBGrid, и опубликовать там это свойство. Хотя сам Inprise(Borland) не особо придерживается правильности.