| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

DBGrid [D7]

Страницы:   < 1 2 >

Sw ©   (2007-06-22 07:25:00) 

Подскажите, пожалуйста, можно ли в DBGrid отключить полосу прокрутки?

---

Правильный Вася   (2007-06-22 14:07:00) [21]

зачем мудрить, если можно вызвать после создания грида

---

vvvvvv   (2007-06-22 13:02:00) [22]

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

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;

---

Johnmen   (2007-06-22 09:10:00) [23]

можно.

---

Страницы:   < 1 2 >

Наверх