Скачать: CL | DM;

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]

спасибо

---

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

Скачать: CL | DM;



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