Mouse Как программно изменить положение курсора мыши?

[97mik]

Как программно изменить положение курсора мыши?

[Brovin Yaroslav]

Добрый день,

 

FireMonkey не имеет специальной поддержи заданий позиции курсора. Только сервис для получения текущей позиции мыши IFMXMouseService.

 

Однако, вы можете сделать это самостоятельно.

• Windows. Вызвав процедуру: SetCursorPos (WinApi). 
• OSX. Вызвав процедуру: CGWarpMouseCursorPosition (MacApi).

[97mik]

Не понимаю. Что надо написать для того чтобы например на OS X переместить курсор в позицию 100 100?

[rareMax]

Не понимаю. Что надо написать для того чтобы например на OS X переместить курсор в позицию 100 100?

CGWarpMouseCursorPosition

Moves the mouse cursor without generating events.

CGError CGWarpMouseCursorPosition (

CGPoint newCursorPosition

);

Parameters newCursorPosition

The new mouse cursor position in the global display coordinate space.

Return Value

A result code. See Core Graphics Data Types and Constants Reference.

Discussion

You can use this function to “warp” or alter the cursor position without generating or posting an event. For example, this function is often used to move the cursor position back to the center of the screen by games that do not want the cursor pinned by display edges.

Availability

• Available in OS X v10.0 and later.

Related Sample Code

• LightTable

Declared In CGRemoteOperation.h

 

 

В юзес MacApi. и потом попробуй написать:

CGWarpMouseCursorPosition(Point:TPointF):=error;//в error проверяешь ошибку. С иОС ни разу не работал - поэтому 99% что ответ не верный  

[Brovin Yaroslav]

Не понимаю. Что надо написать для того чтобы например на OS X переместить курсор в позицию 100 100?

 

Для OSX нужно воспользоваться следующим куском кода, не забыв подключить Macapi.CoreGraphics:

uses
  Macapi.CoreGraphics;

procedure TForm5.ButtonSetMousePosClick(Sender: TObject);
begin
  CGWarpMouseCursorPosition(CGPointMake(100, 100));
end;