Проблемка с dbGrid

← →
CAMCOH (2004-07-05 11:12) [0]

Вобщем 3ий день мучаюсь немогу найти выход из сложившейся ситуации.
Есть Dbgrid1 в котором надо убить полосы прокруток.
С помощью нехитрых операций

type
TGrid=class(TCustomGrid);
................
{skipped}
................
TGrid(DBGrid1).ScrollBars:=ssnone;

удаётся избавитьсяб но как только в тексте программы появляется next, first, .DataSource.DataSet.RecNo:=xx или другие переходы на запись вертикальный скроллинг появляется и от него уже никак не избавится.
Что делать ?
Заранее спасибо за ответы...

← →
Ozone © (2004-07-05 11:19) [1]

Точно есть API-функция для "удаления" скролов, но вот названия хоть убей не помню.
Мож мастера подскажут

← →
Johnmen © (2004-07-05 11:32) [2]

Надо перекрыть метод Paint у грида и "рисовать" самому.
Типа
procedure TMyDBGrid.Paint; begin; SetScrollRange(Handle,SB_VERT,0,0,False); inherited; end;

← →
CAMCOH (2004-07-05 11:36) [3]

Johnmen
А можно поподробнее как это перекрыть метод paint и куда вставлять казанную тобой процедуру.

← →
Johnmen © (2004-07-05 11:50) [4]

>CAMCOH

Вот из какого-то фака
DBGrid без прокрутки =================== type TNoScrollBarDBGrid = class(TDBGrid) private protected procedure Paint; override; public published 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;
Это уже будет твой грид с твоей отрисовкой...

← →
stas (2004-07-05 13:21) [5]

Или используй EhLib

← →
CAMCOH (2004-07-07 13:41) [6]

Johnmen: Vidajot oshibku Undeclared identifier Paint

← →
CAMCOH (2004-07-07 13:43) [7]

Stas: A mozhno popodrobnee ?

Проблемка с dbGrid Найти похожие ветки