TDBGrid настройка вида

[JUDAS]

Как убарать у TDBGrid вертикальную полосу прокрутки ?
Задача:
Вывести информационные (статистические) данные в виде неактивного , нередактируемого окна.
Понимаю что можно наплодить на форме десяток пар TLabel + TDBLabel но это не выход с положения.

[rdama]

Мало того, что вопрос уже был на форуме.
Так еще и погуглить руки не поднимаются.

TDrawGrid(DBGrid1).ScrollBars:=ssNone;

[JUDAS]

Мало того, что вопрос уже был на форуме.
Так еще и погуглить руки не поднимаются.

rdama, прежде чем умничать, проверяйте Ваши методы.
Ваш ответ не верен:

[Аватар]

Панелью без границ можно справа прикрыть. Можно сдвинуть вправо сам грид, чтобы скрулбар вышел за пределы подложки на которой грид лежит

[Drugnir]

DBGrid выводит ровно столько записей, сколько ты ему говоришь. Т.е. одну страницу данных. так что тебе надо писать процедуру или запрос выводящий только 3 записи или столько сколько тебе нужно.

http://programmersforum.ru/showthread.php?t=555

посмотри еще тут, может поможет.

и вот, хоть и не по делфи, но с билдером они похожи

http://www.sql.ru/forum/actualthread.aspx?tid=48305

[JUDAS]

Аватар, метод конешно нормальный и я подумаю, может так и реализую. Нужно как то замутить с учётом того что форма динамическая. Спасибо !
Drugnir, вот картинка, красным написаны записи. Я спецом включил бордюры и сетку чтобы было видно что количество записей не превосходит 3 штуки (размер выбирал имеено с этого расчёта)

[Drugnir]

type
  TNoScrollBarDBGrid = class(TDBGrid) // потомок DBGrid
  protected
    procedure Paint; override;// для переделки под нас ...
end;

procedure register;

implementation

procedure register;
begin
  RegisterComponents('KotoffSamples', [TNoScrollBarDBGrid]);
end;
{ Пропишем свое событие отрисовки }
procedure TNoScrollBarDBGrid.Paint;
begin
  SetScrollRange(Handle, SB_VERT, 0, 0, false);// убрать вертикальную полосу
  inherited;// далее пусть отрисовывается на надо
end;

а это не помогло?

[JUDAS]

Drugnir , большое спасибо ! +1
Ваш метод прокатил !

type 
 TDBGrid = class(DBGrids.TDBGrid) // "накрываем стандартный грид потомком"
    protected
      NoScroolBar : boolean;     
      procedure Paint; override;
   end;

....


procedure TForm1.FormCreate(Sender: TObject);
begin
.....
  //  помечаем все Гриды который нужно почистить от ползунков
  _grStat1.NoScroolBar:=true;   
  _grid1user.NoScroolBar:=true;
  _grid1post.NoScroolBar:=true;
end;

....
// отрисовка
procedure TDBGrid.Paint;
begin
  inherited;
  if NoScroolBar then
  SetScrollRange(Handle, SB_VERT, 0, 0, false);
end;

Результат:

[Drugnir]

Это не мой метода, а из первой ссылки, которую я вам сбрасывал, так что, не зачто