Значение DBGridEh

← →
Aladin © (2004-06-22 10:54) [0]

Можно ли вывести в Caption формы значение ячейки DBGridEh если навести мышкой на нее и ничего не нажимать и как?

← →
Johnmen © (2004-06-22 10:56) [1]

А смысл ? Именно в кепшн ?

← →
Aladin © (2004-06-22 11:15) [2]

Для начала в кепшн
Дальше я разберусь :)

← →
Johnmen © (2004-06-22 11:26) [3]

Если готов разбираться, то см. исходники DBGridEh.
Там и найдешь, как они это делают в хинт.

← →
Mim1 © (2004-06-22 11:30) [4]

Вродебы есть метод mousetocell, прикручиваеш его к onmousemove. Данные береш через свойство cells.

← →
Aladin © (2004-06-22 12:07) [5]

>Johnmen © (22.06.04 11:26) [3]
>Если готов разбираться, то см. исходники DBGridEh.
>Там и найдешь, как они это делают в хинт.
Пробовал. Долго.

>Mim1 © (22.06.04 11:30) [4]
>Вродебы есть метод mousetocell, прикручиваеш его к onmousemove. Данные береш через свойство cells.

А примерчик можно? Что-то не нашел mousetocell...

← →
Mim1 © (2004-06-22 18:59) [6]

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var Column, Row: Longint; begin StringGrid1.MouseToCell(X, Y, Column, Row); if (Column = -1) or (Row=-1) then exit; caption := StringGrid1.Cells[column,row]; { StringGrid1.Hint := StringGrid1.Cells[column,row]; if (ssRight in Shift) and (Column=2) then Application.ActivateHint(Mouse.CursorPos);} end;

← →
Aladin © (2004-06-23 17:02) [7]

Это я нашел. Мне надо DBGridEh а не StringGrid

← →
Mim1 © (2004-06-23 21:24) [8]

procedure TCustomDrawGrid.MouseToCell(X, Y: Integer; var ACol, ARow: Longint); var Coord: TGridCoord; begin Coord := MouseCoord(X, Y); ACol := Coord.X; ARow := Coord.Y; end;

-

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var Coord: TGridCoord; begin StringGrid1.MouseToCell(X, Y, Column, Row); Coord := MouseCoord(X, Y); if (Coord.X = -1) or (Coord.Y=-1) then exit; caption := StringGrid1.Cells[Coord.X,Coord.Y]; { StringGrid1.Hint := StringGrid1.Cells[column,row]; if (ssRight in Shift) and (Column=2) then Application.ActivateHint(Mouse.CursorPos);} end;

← →
Aladin © (2004-06-24 17:12) [9]

Как это с DBGridEh связано?

← →
Эдик (2004-06-24 19:04) [10]

Я делал следующим образом:
В событии OnDrawDataCell формировал массив по колличеству видимых полей, тут же заполнял его текущими значениями из Field, потом эту инфу использовал, когда наводили мышку, так же как и в StringGrid, только значения брал из массива.

> [9] Aladin © (24.06.04 17:12)

Извиняюсь конечно
-
Ты и верно о дурак,
И Андрей в слезах пошел с пискарями домой (с) Наутилус
-
А теперь подмамай, если надо прочитай еще праз всю ветку, или только мои посты. Если непонятно, и не стыдно пиши - разжую дальше. Хотя ИМХО если такое не понятно то с програмированием надо завязывать, а переходить к чтению учебной литературы

← →
Эдик (2004-06-25 11:41) [12]

> [11] Mim
Не спешим с выводами.
Все хорошо, да только ты не учел, что у DBGrid, DBGridEh нет свойства cells, в чем вся проблемма и состоит...

[12] Эдик (25.06.04 11:41)
Да я вродь и не сильно то спешу. Просто НОРМ,АЛЬНЫЙ програмист и напишет чего ему не хватает, например как вы, а может и сам без заморочек вычислит (надеюсь не надо вам объяснять как вычисить значение без cells), а не станет говорить чтото вроде [9]. Свинство ИМХО. Если человек потратил время на написание ответа то потрать время на уточнение. А не поли вразу из трех слов. :(

При работе в DBGrid (в том числе и DBGridEh) вспоминаем, что данные в шриде вовсе не хранятся, они беруться из соотв. DataSet. Вот и весь фокус.

Используем св-сво Columns грида, из него выбираем например так:

Columns[CurMouseColNum].Field.AsString

Делаи уточняем, под рукой нет. Как определить CurMouseColNum - см. Mim1 © [8]

Значение DBGridEh Найти похожие ветки