написание собственного события

[Bayazet]

у меня на форме есть TPaintBox
мне необходимо обработать событие onClick
вот только в этом стандартном событии нет координат Х У курсора. где мне можно их достать?

события onMouseDown или onMouseUp не подходят

[Sazary]

Я вот так делал. (тут TImage, но это не важно)

procedure TForm1.Image1Click(Sender: TObject);
var T : TPoint;
Mos : TMouse;
begin
T.X := Mos.CursorPos.X - Form1.left - 5 - Image1.Left;
T.Y := Mos.CursorPos.Y - Form1.Top -22 - Image1.Top;

[Bayazet]

я так понимаю, 22 и 5 - это рамки формы, вычисленные опытным путем?

[Sazary]

я так понимаю, 22 и 5 - это рамки формы, вычисленные опытным путем?

Да. Я что-то не нашел подходящих свойств.

[VVM]

Я что-то не нашел подходящих свойств.

Вроде бы так:

var
  Border, //левая, правая, нижняя границы
  UpBorder: integer; //верхняя
begin
  Border := (Form1.Width - Form1.ClientWidth) div 2;
  UpBorder := Form1.Height - Form1.ClientHeight - Border;
end;

[Sazary]

VVM, действительно ) Спс

[Levsha100]

Может легче хранить координаты мыши в глобальных переменных, а обновлять их вовремя ее движения(на картинке)?

[Sazary]

Сообщение от Levsha100

Может легче хранить координаты мыши в глобальных переменных, а обновлять их вовремя ее движения(на картинке)?

Зачем? Ведь требуется обрабатывать именно onClick. Следовательно, и координаты логично получать именно в обработчике.
А для движения есть onmousemove.

[Ntlegend]

для получения координат мыши можна использовать апишную функцыю

function GetCursorPos(var lpPoint: TPoint): BOOL;

[SERG1980]

Есть событие

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin

end;

Вот оттуда и можно брать X и Y