Есть DBGrid. Все данные умещаются в сетку и как бы скролинг не нужен.. но.. как избавиться от него не знаю. В TCustomGrid есть свойство ScrollBars в котором можно явно указать нужное значение. TDBGrid наследуется от TCustomGrid, однако этого свойства нет.. Пожалуйста, подскажите как сделать красиво

С Уважением, Евгения..

Здравствуйте zenbka, Вы писали:

Z> Есть DBGrid. Все данные умещаются в сетку и как бы скролинг не нужен.. но.. как избавиться от него не знаю. В TCustomGrid есть свойство ScrollBars в котором можно явно указать нужное значение. TDBGrid наследуется от TCustomGrid, однако этого свойства нет.. Пожалуйста, подскажите как сделать красиво

uses ShellApi;

var
I:tagSCROLLINFO;

GetScrollInfo(DBGrid1.Handle,SB_VERT,I);
I.fMask := SIF_DISABLENOSCROLL;
SetScrollInfo(DBGrid1.Handle,SB_VERT,I,TRUE)

Здравствуйте vav, Вы писали:

vav>Здравствуйте zenbka, Вы писали:

Z>> Есть DBGrid. Все данные умещаются в сетку и как бы скролинг не нужен.. но.. как избавиться от него не знаю. В TCustomGrid есть свойство ScrollBars в котором можно явно указать нужное значение. TDBGrid наследуется от TCustomGrid, однако этого свойства нет.. Пожалуйста, подскажите как сделать красиво :)

vav>uses ShellApi;

vav>var
vav> I:tagSCROLLINFO;

vav> GetScrollInfo(DBGrid1.Handle,SB_VERT,I);
vav> I.fMask := SIF_DISABLENOSCROLL;
vav> SetScrollInfo(DBGrid1.Handle,SB_VERT,I,TRUE)

Слабо просто использовать EhLib?

Здравствуйте Аноним, Вы писали:

А>Слабо просто использовать EhLib?

Не поверишь, но есть заказчики, которые ТРЕБУЮТ использования ТОЛЬКО стандартных компонент Дельфи(ентерпрайз).
И их можно понять...

А по жизни предпочитаю ExpressQuantumGrid.