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

[Utkin]

Пытался вычислять координаты через координаты курсора мыши в момент нажатия и столкнулся с тем, что Lazarus не понимает что такое GetCursorPos
Есть GetCursorPos в Лазарусе? Если есть, то где? А если нет, то каким образом решить указанную проблему?

ЗЫ. Мне нужны Х и У в системе координат курсора, дабы закрыть ячейку своим DateEdit'ом дабы юзер вводил в столбец только даты. Текущие индексы ячейки в рамках СтрингГрида мне не интересны

[Аватар]

гугл - GetCursorPos в Лазарус
первая же http://lists.lazarus.freepascal.org/...er/046194.html
орет

GetCursorPos is defined in winapih.inc.

Stilet на лазарусе пишет, уточнит, если не так

[Utkin]

В общем-то нашел, однако проблему это не решило. Как мне преобразовать координаты мыши в координаты left и top конкретной ячейки Стрингрида?

[Аватар]

А так лазарус хавает?

procedure TForm1.StringGrid1Click(Sender: TObject);
var xRect: TRect;
    xPoint: TPoint;
begin
  xRect:=StringGrid1.CellRect(StringGrid1.Col,StringGrid1.Row);
  Label1.Caption:=Format('Left=%d,Top=%d',[xRect.Left,xRect.Top]);
  xPoint:=StringGrid1.ClientToScreen(Point(xRect.Left,xRect.Top));
  Label2.Caption:=Format('Left=%d,Top=%d',[xPoint.X,xPoint.Y]);
end;

[Stilet]

Ребята, вы чего? Mouse.CursorPos есть и в Делфи и в Лазаре.

А так лазарус хавает?

Это насколько я понимаю не совсем в оконных координатах. Может Уткину нужно в абсолюте...

Опять дописываю пост: Есть метод StringGrid1.MouseToCell() Вот им и нужно преобразовывать из координат в ячейки.

[Аватар]

Дык ему координаты левого верхнегно угла ячейки нужны, моусе здесь как бы и не причем

Это насколько я понимаю не совсем в оконных координатах

Почему? в лейбл2 и отображаю экранные координаты, в лейбл1 оконные

[Stilet]

В любом случае Уткину уже есть из чего выбирать

[Аватар]

в лейбл1 оконные

Здесь поспешил - относительно грида. Для оконных можно использовать ScreenToClient формы от экранных координат

[Utkin]

Решил по методу Стилета, координаты мыши подключаются через юнит LCLIntf

[waleri]

Мен любопытно, зачем нужен GetCursorPos - разве в событиях мыши нет координат?