Поля в TDBGrid - БД в Delphi

Lynx · 12.02.2007, 20:00

Уважаемые ПРОграммеры, может кто сталкивался с данным вопросом, как в DBGrid запретить менять колонки (Column) местами, оставив возможность изменения их размера с помощью мыши?

Вопрос отпал... Инфу нашел... Буду пробовать

mihali4 · 13.02.2007, 01:16

Даю наводку:
property OnColumnMoved: TMovedEvent;
type TMovedEvent = procedure (Sender: TObject; FromIndex, ToIndex: Longint) of object;
Нужно, чтобы
ToIndex:=FromIndex;

Lynx · 13.02.2007, 18:51

Цитата:

Сообщение от mihali4

ToIndex:=FromIndex;[/COLOR]

Наводка не катит!
Такое пробовал еще до написания сообщения...
Данное событие возникает по завершению перемещения!

mihali4 · 14.02.2007, 22:14

Цитата:

Данное событие возникает по завершению перемещения

Да, увы...
К сожалению, ничего из штатных средств вроде бы не видно.
Могу предложить искусственный способ.
После запуска программы заполняется массив имен полей, к которым привязаны столбцы COLUMN DbGrid-а, а по событию DBGridColumnMoved производится принудительная установка эталонного порядка следования полей таблицы в соответствии с данными массива.

Plague · 15.02.2007, 08:59

Кросируешь grid как TCustomGrid

grid(dbgrid1).Options:=grid(dbgrid1 ).Options-[goColMoving];

Вроде работает.

Lynx · 15.02.2007, 18:36

Огромное спасибо всем

Цитата:

Сообщение от Lynx

Вопрос отпал... Инфу нашел... Буду пробовать

поступил немного по другому... перекодировкой DBGrid.pas, добавлением в него опций, подробнее в DelphiKingdom
http://www.delphikingdom.com/

12.02.2007, 20:00	#1
Lynx Пользователь Регистрация: 09.02.2007 Сообщений: 49	Поля в TDBGrid Уважаемые ПРОграммеры, может кто сталкивался с данным вопросом, как в DBGrid запретить менять колонки (Column) местами, оставив возможность изменения их размера с помощью мыши? Вопрос отпал... Инфу нашел... Буду пробовать Свой среди чужих Чужой среди своих Последний раз редактировалось Lynx; 12.02.2007 в 23:36.

15.02.2007, 08:59	#5
Plague Забанен Форумчанин Подтвердите свой е-майл Регистрация: 01.11.2006 Сообщений: 420	Кросируешь grid как TCustomGrid grid(dbgrid1).Options:=grid(dbgrid1 ).Options-[goColMoving]; Вроде работает. Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Поиск по TDBGrid	Toska	БД в Delphi	1	16.08.2008 23:30
TDBGrid	Blackmore	БД в Delphi	2	26.05.2008 09:39
скролинг TDBGrid	azat	БД в Delphi	5	18.01.2008 15:12
редактирование TDBGrid	mm_mauser	БД в Delphi	5	29.11.2007 11:39
TDBGrid. Вычисление	Nic-x	БД в Delphi	8	17.04.2007 08:19

13.02.2007, 01:16	#2
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Даю наводку: property OnColumnMoved: TMovedEvent; type TMovedEvent = procedure (Sender: TObject; FromIndex, ToIndex: Longint) of object; Нужно, чтобы ToIndex:=FromIndex;