[Aндрей]

Имеется фигура Shape stCircle(радиус 300) и кнопка старт. Подскажите, как сделать, чтобы при нажатии на кнопку старт курсор мыши устанавливался в центре фигуры.

[lmikle]

Оттранслировать координаты из локальных в экранные и установить в них курсор мыши (Mouse.CursorPos).

[Aндрей]

Напишите пожалуйса если можно подробнее, а то что-то не получается

[0nni]

Код:

procedure MouseToControl(ctrl : TControl);
var
  pt : TPoint;
begin
  pt.X := ctrl.Width div 2;
  pt.Y := ctrl.Height div 2;
  pt := ctrl.ClientToScreen(pt);
  SetCursorPos(pt.X, pt.Y);
end;