ScrollBar в гриде

← →
qpwo111 (2010-10-12 09:25) [0]

Здраствуйте, подскажите создал свой грид, унаследовав его от TJvDBUltimGrid. Проблема в том что не смотря на то что скроллбары не нужны, то есть содержимое влезает полностью в таблицу, они все равно показываются. Создал процедурку которая в случае если скроллбары не нужны, скрывает их. Но вот где её вызывать, чтобы переопределить родной метод показывания скроллбаров не знаю. Пробовал в Resize, но уж больно грид дергаться начинает при кждом щелчке мыши

← →
KilkennyCat © (2010-10-12 09:42) [1]

TJvDBUltimGrid<-TJvDBGrid<-TDBGrid<-TCustomDBGrid<-TCustomControl

TCustomDBGrid:

procedure UpdateScrollBar;

constructor TCustomDBGrid.Create(AOwner: TComponent);
...
begin
...
ScrollBars (TCustomControl)
....
end;

← →
qpwo111 (2010-10-12 09:50) [2]

а не могли бы вы поподробнее объяснить, а то я не понял

← →
KilkennyCat © (2010-10-12 23:25) [3]

> а то я не понял

а как же ты тогда
> создал свой грид, унаследовав его от TJvDBUltimGrid

?
если механизм наследования ясен, то тут проблем не должно возникнуть, тем более, что все исходники доступны, в данном случае.
Если же нет, то рекомендую прочитать
Книга: Создание компонентов в среде Delphi. Руководство разработчика
Автор: Голованов М., Веселов Е.
Издательство: Питер
Этоа книжка лучше объяснит, чем я.

> qpwo111 (12.10.10 09:25)

unit Unit1; type TForm1 = class(TForm) StringGrid: TStringGrid; procedure FormCreate(Sender: TObject); private FStringGridWndProc: TWndMethod; procedure StringGridWndProc(var Msg: TMessage); public { Public declarations } end; procedure TForm1.StringGridWndProc(var Msg: TMessage); begin ShowScrollBar(StringGrid.Handle, SB_HORZ, False); ShowScrollBar(StringGrid.Handle, SB_VERT, False); FStringGridWndProc(Msg); end; procedure TForm1.FormCreate(Sender: TObject); begin FStringGridWndProc := StringGrid.WindowProc; StringGrid.WindowProc := StringGridWndProc; end;

ScrollBar в гриде Найти похожие ветки