Столбец DbGrid

← →
NickNaz (2003-12-23 12:49) [0]

Добрый день!

Возможно ли в DbGrid закрепить один из столбцов?
Если да, то как это сделать?

Спасибо.

← →
Sandman25 (2003-12-23 12:54) [1]

Можно использовать DBGridEh из бесплатной библиотеки EhLib. Как сделать со стандартным - не знаю.

← →
Vlad (2003-12-23 12:54) [2]

http://www.delphikingdom.ru/helloworld/nogrid.htm#03_2

← →
Sandman25 (2003-12-23 12:56) [3]

[2] Vlad © (23.12.03 12:54)

Мда... а ведь я это читал когда-то... Иду перечитаю :)

← →
NickNaz (2003-12-24 11:12) [4]

Vlad © (23.12.03 12:54) [2]

Последовал вашему совету Delphi ругается: "Field or method identifier expected" после
Property AllowColumnMoved : Boolean read FAllowColumnMoved write SetAllowColumnMoved;

← →
Anatoly Podgoretsky (2003-12-24 11:23) [5]

Или это FAllowColumnMoved или это SetAllowColumnMoved отсутствует

← →
NickNaz (2003-12-24 11:34) [6]

Anatoly Podgoretsky © (24.12.03 11:23) [5]

Сделал SetAllowColumnMoved присутствующим.
Затем ругается на функцию:
Undeclared identifier: "BeginColumnDrag"
";" expected but "(" found
"=" expected but ")" found
Undeclared identifier: "Result"
This form of method call only allowed in methods of derived types

function TexDBGrid.BeginColumnDrag(var Origin, Destination: Integer; const MousePt: TPoint): Boolean;
Begin
Result:=FAllowColumnMoved;
IF Result Then Result:= Inherited BeginColumnDrag(Origin,Destination,MousePt);

← →
Vlad (2003-12-24 12:06) [7]

Наверное она у тебя не объявлена :-)

TexDBGrid = class(TDBGrid) private ... FAllowColumnMoved: Boolean; ... public Property AllowColumnMoved : Boolean read FAllowColumnMoved write SetAllowColumnMoved; protected function BeginColumnDrag(var Origin, Destination: Integer; const MousePt: TPoint): Boolean; override;

← →
NickNaz (2003-12-24 12:30) [8]

Vlad © (24.12.03 12:06) [7]

Пишет следующее:
Method "BeginColumnDrag" not found in base class
после:
protected
function BeginColumnDrag(var Origin, Destination: Integer; const MousePt: TPoint): Boolean; override;

← →
Vlad (2003-12-24 12:52) [9]

> NickNaz © (24.12.03 12:30) [8]

Приведи полное описание типа TexDBGrid из твоего кода

← →
NickNaz (2003-12-24 12:56) [10]

Vlad © (24.12.03 12:52) [9]

type
TexDBGrid = class(TDBGrid);
...
private
FAllowColumnMoved: Boolean;
SetAllowColumnMoved: Boolean;
public
Property AllowColumnMoved : Boolean read FAllowColumnMoved write SetAllowColumnMoved;
protected
function BeginColumnDrag(var Origin, Destination: Integer; const MousePt: TPoint): Boolean; override;

← →
Sandman25 (2003-12-24 13:02) [11]

Судя по [10], лучше все-таки использовать DBGridEh...

← →
Vlad (2003-12-24 13:02) [12]

Во-первых END в конце описания типа не поставил, во вторых где описание процедуры SetAllowColumnMoved? Я вижу описание переменной SetAllowColumnMoved.

Должно быть что-то вроде этого

TexDBGrid = class(TDBGrid) private FAllowColumnMoved: Boolean; procedure SetAllowColumnMoved(b: boolean); public Property AllowColumnMoved : Boolean read FAllowColumnMoved write SetAllowColumnMoved; protected function BeginColumnDrag(var Origin, Destination: Integer; const MousePt: TPoint): Boolean; override; end;

← →
NickNaz (2003-12-24 13:13) [13]

После procedure SetAllowColumnMoved(b: boolean);
пишет Unsatisfied forward or external declaration: "TexDBGrid.SetAllowColumnMoved"

← →
Alex_Bredin (2003-12-24 13:13) [14]

что-то непонятно что автор ветки имеет в виду под словом "закрепить".
то что вам советуют- это трактовка "запретить перемещение этого столбца на другую позицию". То ли вам нужно? или нужно как в экселе(или в StringGrid FixedCol(?)) "зафиксировать столбец(или ячейку)"
в последнем случае -DBGridEh, как и было сказано ранее.

← →
Vlad (2003-12-24 13:23) [15]

> NickNaz © (24.12.03 13:13) [13]
> После procedure SetAllowColumnMoved(b: boolean);
> пишет Unsatisfied forward or external declaration: "TexDBGrid.SetAllowColumnMoved"

Уфффф.... тяжко....
Ну если ты объявил метод класса, то наверное надо и реализацию сделать ?
Читаем книги по Delphi для начала, иначе будет туго. Дело в том что задача эта нетривиальная.

← →
Anatoly Podgoretsky (2003-12-24 13:24) [16]

← →
Vlad (2003-12-24 13:31) [17]

> Anatoly Podgoretsky © (24.12.03 13:24) [16]

У него - у кого ?
У Шевченко или у автора ветки ?
У автора ветки - это поле (а зачем оно ?), а у Шевченко - метод :-)

← →
Anatoly Podgoretsky (2003-12-24 13:34) [18]

← →
Vlad (2003-12-24 13:41) [19]

> Anatoly Podgoretsky © (24.12.03 13:34) [18]

Ну так вроде я об этом и пытался в [12] сказать, но кажется бесполезно :-)

Столбец DbGrid Найти похожие ветки