[Burka]

Какие свойства нужно изменить в DBGrid что бы нельзя было перетаскивать столбцы(т.е. менять их местами), но можно было изменять их размер?

[Wipahacker]

Ув Вurka Вы что то напутали поскольку я знаю что в DBGrid стандартно никоем случае не перетаскиваются между собой!

[merdashka]

работает только с dgColumnResize:=False;

[Wipahacker]

Но бурка имела ввиду что менять метсями Столбы!!

[merdashka]

Можно на событие ColumnMoved прописать в каком порядке должны стоять колонки.



Пример

procedure TForm1.DBGrid1ColumnMoved(Sender: TObject; FromIndex,
ToIndex: Integer);
begin
DbGrid1.Columns.Items[0].FieldName:='Имя_Поля1';
DbGrid1.Columns.Items[1].FieldName:='Имя_Поля2';
.
.
.
end;

И пусть перетаскивают сколько могут

[Burka]

merdashka, кстати в процедуру передаться индексы видимо тех столбцов которые поменяли место, думаю можно тока две штуки менять. А все накладно, у меня 140 столбцов)

[merdashka]

Хорошая мысль, но давай над этим подумаем завтра, может кто умней присоединится. У меня после рабочего дня голова как колокол. Обещаю завтра исправиться.

Если не изменялись размеры полей в Delphi, то наверное можно так:
DbGrid1.Columns.RebuildColumns;

[Burka]

merdashka, Ладно, до завтра подожду))
Но есть такие проблемы:
в Событии ColumnMoved бестолку что-либо менять. Ни один из вариантов не работает.
Во-вторых Способ DbGrid1.Columns.Items[0].FieldName:='Имя_Поля1'; тоже не подходит т.к. меняться тока имя поле а не поле.


И все же самый легкий способ найти какую-нибудь скрытую свойству типа NoMoveColumns..
Ну или найти способ в событии OnColumnMoved завершать это событие ничего не делая дальше, так как по-моему сначала вызываеться это событие, а потом тока меняться местами столбцы.

[merdashka]

type

TGridAccess = class(TCustomGrid);



procedure TForm1.FormCreate(Sender: TObject);
begin
with TGridAccess(DBGrid1) do
Options := Options - [goColMoving];
end;

[Burka]

merdashka, Спасибо! Интересная фишка)) может чего еще полезного она сможет) надо будет почитать.