Как получить на PaintBox координаты мыши при клике?

[xterro]

Приветствую, нужно при клике на PaintBox получить координаты указателя. Добавил обработчик OnClick, но у него в параметрах не передаются координаты указателя:

Код: Выделить всё

procedure TMainForm.OnPaintBoxClick(Sender : TObject);
var
    p : Pointer;
    rp : TPoint;
begin
     for p in LineList do begin
         if TLine(p).HitTest(rp) = true then
            ShowMessage('Click on the Line!');
     end;
end;                                                     


Где же мне их взять?

Добавлено спустя 5 часов 18 минут 54 секунды:
Вопрос снимается, разобрался. Для события OnClick, координаты курсора не передаются, зато они передаются для OnMouseDown и OnMouseUp, там и обрабатывать их нужно

[Sharfik]

viewtopic.php?f=32&t=9607

[xterro]

Sharfik Спасибо )