как узнать координату ячейки в 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;
так понятно?

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