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

как узнать координату ячейки в DBGrid?   Найти похожие ветки 

← →
Artem123   (2004-10-01 10:23) [0]

Как узнать координату правого нижнего угла текущей ячейки, в DBGrid.

---

← →
Skeptik   (2004-10-01 10:31) [1]

объяви:
type
 TDBGridAccess = class(TDBGrid);

и в коде:
 with TDBGridAccess(DBGrid) do
   CellRect(Col, Row).BottomRight;

---

← →
Artem123   (2004-10-01 10:44) [2]

Как узнать эту выделенную ячейку, т.к. в процедуру OnCellCklick передается только колонка, а как найти ячейку?

---

← →
Skeptik   (2004-10-01 11:09) [3]

так надеюсь понятно:
type
TDBGridAccess = class(TDBGrid);

procedure TCustomWizardFrm.DBGrid1CellClick(Column: TColumn);
var
 vCoord: TGridCoord;
 vMousePoint, vSeekPoint: TPoint;
begin
// позиция курсора в гриде
 vMousePoint := column.Grid.ScreenToClient(Mouse.CursorPos);
// координаты ячейки под курсором
 vCoord := column.Grid.MouseCoord(vMousePoint.x, vMousePoint.y);
// координаты нижнего правого угла ячейки
 with TDBGridAccess(column.Grid) do
  vSeekPoint := CellRect(vCoord.X, vCoord.Y).BottomRight;
 ShowMessage("BottomRight point of cell[" +
             IntToStr(vCoord.X) + "," + IntToStr(vCoord.Y) + "] = (" +
             IntToStr(vSeekPoint.x) + "," + IntToStr(vSeekPoint.Y) + ")");
end;
так понятно?

---

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

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



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