Запрет перетаскивания столбца в гриде?

← →
Cranium © (2003-08-14 16:01) [0]

Как осуществить запрет перетаскивания столбца в гриде?

← →
Vlad (2003-08-14 16:05) [1]

dgColumnResize поставить false

← →
Desdechado © (2003-08-14 16:09) [2]

побочный эффект - изменять ширину столбцов нельзя

← →
Cranium © (2003-08-14 16:11) [3]

Так так то оно так, но мне в идеале мне нужно, чтоб определенный столбец был зафиксирован в крайне левой позиции, не мог менять размер, а со всеми остальными пусть что хотят то и делают, хоть размер меняют, хоть местами.

← →
NAlexey © (2003-08-14 16:13) [4]

>побочный эффект - изменять ширину столбцов нельзя
Но перетаскивать все еще можно...

← →
DenK_vrtz © (2003-08-14 16:18) [5]

Cranium © (14.08.03 16:11), положи два грида "срощенных" вместе и работающих с одним набором данных
У первого [1]+наложить второй на полосу прокрутки, у второго ничего не делать (только индикатор отключить)

← →
Desdechado © (2003-08-14 16:22) [6]

2 NAlexey
может, в семерке и можно, а в пятерке - нельзя!

← →
Cranium © (2003-08-14 16:23) [7]

> DenK_vrtz ©

А что други способом зафиксировать столбец нельзя? Твой вариант не подходит по ряду обстоятельств!

← →
gsvserg © (2003-08-14 16:24) [8]

procedure TForm_licenz.VolgaDBGrid2ColumnMoved(Sender: TObject; FromIndex, ToIndex: Integer); begin if fromindex=0 then begin VolgaDBGrid2.Columns.Items[toindex].Index:=fromindex; end; end;

Для DBGrid тоже работает, только нужно еще проверять чтобы другие столбцы не перемещали на первое место.

Если не ресайзить то пробуй так:
type C = class(TCustomGrid); procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if C(StringGrid1).FGridState = gsColSizing then begin C(StringGrid1).FGridState := gsNormal; InvalidateRect(StringGrid1.Handle, nil, false); end; end;

Взять нормальный DBGrid и не париться.....:)

← →
Vlad (2003-08-14 17:32) [12]

На событие OnColumnMoved:
ShowMessage("А ну поставь на место!");

Запрет перетаскивания столбца в гриде? Найти похожие ветки