MouseToCell в TdxDBGrid - как реализовать?

← →
Lexa_1 (2004-05-13 15:01) [0]

Как можно в компоненте TdxDBGrid определить координаты ячейки, над которой находится курсор мыши? На пример, в StringGrid"е аналог - MouseToCell.

← →
MU (2004-05-13 15:08) [1]

см
dxDBGrid1.GetHitInfo
dxDBGrid1.GetHitTestInfoAt

← →
MU (2004-05-13 15:11) [2]

procedure TForm1.dxDBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
G: TdxDBGrid;
P : TPoint;
Col : TdxDBTreeListColumn;
HitTest: TdxTreeListHitInfo;
begin
G := Sender as TdxDBGrid;
P.x := X; P.y := Y;
HitTest := G.GetHitInfo(P);
G.Hint := "";
if HitTest.hitType = htColumn then
begin
Col := G.GetColumnAt(X, Y);
if Col <> nil then
G.Hint := "Column: " + Col.Caption;
end;
if HitTest.hitType = htSummaryFooter then

begin
Col := G.GetFooterColumnAt(X,Y);
if Col <> nil then
G.Hint := "Symmary: " + Col.Caption;
end;
if HitTest.hitType = htSummaryNodeFooter then
begin
Col := G.GetNodeFooterColumnAt(X,Y);
if Col <> nil then
G.Hint := "Node Symmary: " + Col.Caption;
end;
if G.Hint <> "" then
G.Showhint := True
else
G.ShowHint := False;
end;

← →
Lexa_1 (2004-05-13 15:21) [3]

спасибо

MouseToCell в TdxDBGrid - как реализовать? Найти похожие ветки