Как получить координаты точки Image?

Question

[Alexander Shilov]

Добрый вечер. Подскажите пожалуйста, как сделать, чтобы при нажатии на Image в Edit1 отображалась точка по X, а в Edit2 отображалась точка по Y?

Answer 1

[Alexander Shilov]

Sorry, нашел ответ здесь.

void __fastcall TForm1::Image1Click(TObject *Sender)
{
TPoint tp;
GetCursorPos(&tp);
int x=int(tp.x);
int y=int(tp.y);
Edit1->Text=IntToStr(x-10);
Edit2->Text=IntToStr(y-20);
}

Эта штука сработала.