freepascal.ru

Прошу помощи. Нужно при вращении колесика мыши с нажатым контролом установить курсор мыши в центр картинки MyImage.

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

procedure TMain.MyImageMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  if ssCtrl in Shift then begin
    // здесь надо установить курсор мыши в центр MyImage
    MousePos.X := MyImage.Width div 2;
    MousePos.Y := MyImage.Height div 2;
  end;
end;

Здесь при попытке изменить MousePos ничего не происходит, что в общем, понятно. А как правильно?

Проблема в том, что MousePos у тебя определена как константа (без модификатора var), поэтому бесполезно ее использовать. Либо искать другой метод (где он есть), либо использовать внешние по отношению к процедуре координаты.

Насколько я понимаю, колесико не предназначено для движения курсора, а для движения относительно него. Попробуй заюзать нажатие средней (если не ошибаюсь, третьей) кнопки.

Что-нибудь вроде:

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

procedure TMain.MyImageMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  if ssCtrl in Shift then
    begin
      Mouse.CursorPos := MyImage.ClientToScreen(Point(MyImage.Width div 2, MyImage.Height div 2));
      Handled := True;
    end;
end;


Простите, но чем SetCursorPos не подходит?