Lazarus координаты кликнутой ячейки

[Utkin]

разве в событиях мыши нет координат?

Идея была в следующем - человек щелкает на столбец таблицы и вводит туда дату (вручную или из датного диалога DateEdit). Поначалу я расстроился, что нормальный Стринггрид такими способностями не обладает, но потом решил не заморачиваться и просто повесил один невидимый DateEdit на форму. Вот он и должен появляться и подменять собой ячейку СтрингГрида в строго определенном столбце. Это глобальная задача. Локальная же задача заключается в вычислении координат той ячейки, которую следует заменить dateEdit'ом. Так вот оказалась имеющиеся условия совершенно не способствуют этому:
1) Событие клика не передает координат мыши (а мне надо)
2) DateEdit имеет координаты в системе отсчета формы
3) Курсор мыши имеет координаты в системе отсчета экрана (а это значит, что при перемещении формы одно и тоже место будет иметь разные координаты)
4) Ячейка имеет координаты в системе отсчета СтрингГрида
Короче с наскока такой вопрос не решился

[Аватар]

Событие клика не передает координат мыши (а мне надо)

А они и не нужны. Зато известны гридовы координаты ячейки, по которым легко вычисляются её пикселевы координаты в любой системе отчета

[Utkin]

Зато известны гридовы координаты ячейки, по которым легко вычисляются её пикселевы координаты в любой системе отчета

Об этом я еще не подумал. Направление подскажите?

[Аватар]

В посте #4 это и написал, только не привел к координатам относительно формы. Здесь привел

procedure TForm1.StringGrid1Click(Sender: TObject);
var xRect: TRect;
    xPoint: TPoint;
begin
  xRect:=StringGrid1.CellRect(StringGrid1.Col,StringGrid1.Row);
  xPoint:=ScreenToClient(StringGrid1.ClientToScreen(Point(xRect.Left,xRect.Top)));
//xPoint - координаты ячейки относительно формы
end;