Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

Resize колонок в DBGrid е   Найти похожие ветки 

← →
Andriy Tysh   (2003-09-17 17:48) [0]

Какое сообщение посылается Винде, когда я делаю Ресайз колонок(напр. в DBGrid"е)?
Может кто-то код кинет или даст идею.
И возможно ли переловить это?

---

← →
Игорь Шевченко   (2003-09-17 18:20) [1]

"Винде" ничего не посылается

http://delphi.vitpc.com/helloworld/nogrid.htm

---

← →
Andriy Tysh   (2003-09-17 19:26) [2]

Спасибо, я уже использовал эту статтю, но Вы же здесь сами даете
совет запретить возможность изменять ширину.
А как переловить?

---

← →
NAlexey   (2003-09-18 09:54) [3]

Переловить можно на MouseMove состояние Grid - gsColMoving.

---

← →
Andriy Tysh   (2003-09-18 10:32) [4]

> NAlexey © (18.09.03 09:54) [3]

Спасибо попробую.
Но я кажется частично решил проблему:

procedure TfrmMakePlan.FGridMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var W, I, ColW, LeftC: Integer;
begin
inherited;
XM:=X;
//YM ловлю сообщением WM_LBUTTONDOWN (не верно ли написал)
//если нет- не страшно можно найти правильное
with TFriendGrid(FGrid) do //TFriendGrid=class(TCustomGrid)
begin
if [goFixedHorzLine, goHorzLine]*Options = [] then {есть ли линия-разделитель}
ColW := 0
else ColW := GridLineWidth; {её ширина}
LeftC:=Left; //левая видимая колонка
W:=0;
for I := LeftC to Pred(ColCount) do
begin
W:=W+ColWidths[I]+ColW;
//лежат ли мои координаты там, где возможно раздвижение колонок
if (W<=X+5)and(W>=X-5)and(YM>0)and(YM<RowHeights[0]) then ShowMessage("=");
end;
end;
end;


Кто найдет ошибку или модернизирует- большое спасибо!

---

Страницы: 1 вся ветка

Текущий архив: 2003.11.13;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.035 c