| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как узнать координату ячейки в DBGrid? [D7, WinXP]

Artem123 ©   (2004-10-01 10:23:00) 

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

---

Skeptik   (2004-10-01 11:09:00) [1]

так надеюсь понятно:
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;
так понятно?

---

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

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

---

Skeptik   (2004-10-01 10:31:00) [3]

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

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

---

Наверх