Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как убрать(скрыть) горизонтальный скролбар(прокрутку) у TDBGrid-а? [D4]

cahek2000 © (2001-12-21 08:40:00)
Необходимо насовсем скрыть горизонтальный скролбар у ДБГрида.
Просто скрыть с помощью функции SetWindowLong удалось, но при изменении размера у формы он опять появляется.
Вариант перехвата ОнРесайз у формы и все время убирать скролбар не годиться, т.к. происходит нежелательное мигание!

cahek2000 (2001-12-21 15:01:00) [1]
Спасибо всем!!!
И особенная благодарность Юрию Зотову за ответ на этот вопрос.
Я подозревал, что можно подправить какое-то защищенное свойство, но не знал толком какое, теперь буду иметь в виду!

Lusha (2001-12-21 13:30:00) [2]
>Господь
Слава тебе!!! Я уж было испугался, что снова что-то пропустил...
>Юрий Зотов
Спасибо еще раз за описанный способ работы с protected секцией. Все остальное я уже знаю. (Опять задумчиво) И уже давно...

Юрий Зотов (2001-12-21 13:21:00) [3]
Все ОК, отвечаю.

1. О палитре и правках кода. Сейчас у Вас на используется компонент стандартного класса TDBGrid. Если породить от него свой компонент (с переопределенным конструктором), то его придется регистрировать и править все PAS и DFM, в которых он задействован - иначе Вы не сможете поднимать формы в design-time. В итоге - много ручной работы, плюс "замусоривание" палитры, плюс лишний расход памяти в design-time (на новый класс).

2. О памяти в run-time. Да, это тот самый новый конструктор. Да, это всего несколько байт. Но это и есть "стиль". Ведь любая программа состоит именно из маленьких кусочков и каждый из них должен быть написан грамотно. Иначе "несколько байт" накапливаются и в итоге перерастают в те самые десятки и сотни килобайт.

Lusha (2001-12-21 12:54:00) [4]
>Romkin
Применительно к данному случаю, пожалуйста. На сколько увеличится размер памяти?
>Юрий Зотов
А могли бы и ответить. Тем не менее, СПАСИБО :o)

Romkin (2001-12-21 12:37:00) [5]
Экономия памяти существенная - все виртуальные методы, как переопределнные, так и предка, присутствуют в потомке как собственные...

Юрий Зотов (2001-12-21 12:36:00) [6]
Это вместо "спасибо"? Я правильно понял?

Lusha (2001-12-21 12:33:00) [7]
А экономия памяти, это те несколько байт переопределенной процедуры?

Lusha (2001-12-21 12:26:00) [8]
Спорить никто и не собирался. Просто если сказал "А" - говори "Б".
P.S. Про палитру, я правда, как то не уловил... (

Юрий Зотов (2001-12-21 11:55:00) [9]
Во избежание следующих вопросов...

type
TFriendGrid = class(TDBGrid);

procedure TForm1.FormCreate(Sender: TObject);
begin
TFriendGrid(DBGrid1).ScrollBars := ssVertical
end;

Разница в том, что здесь НЕ создается новый компонент, а используется простое приведение класса. В итоге - экономится память, не засоряется палитра, минимум правки кода и т.д.

Юрий Зотов (2001-12-21 11:23:00) [10]
Не "Да ну?", а "ну да". И даже не надо спорить. Никогда не работали с protected-секцией? Уже устал писать примеры на эту тему.

Lusha (2001-12-21 10:55:00) [11]
Да ну?

Юрий Зотов (2001-12-21 10:49:00) [12]
Дык... А зачем компоненты-то плодить без надобности? То же самое можно сделать внешним кодом - например, в FormCreate.

Lusha (2001-12-21 10:29:00) [13]
Вообще то это проще лечится. Просто переопределяется конструктор DBGrid

TMyDBGrid = class(TDBGrid)
public
constructor Create(AOwner : TComponent); override;
end;

constructor TMyDBGrid.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
Scrollbars := ssNone;
end;

И все дела.

Удачи

Наверх

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