IWinApplicationClass.CursorPosition

Синтаксис Fore

CursorPosition: IGxPoint;

Синтаксис Fore.NET

CursorPosition: Prognoz.Platform.Interop.Drawing.GxPoint;

Описание

Свойство CursorPosition возвращает точку, содержащую текущие экранные координаты курсора мыши.

Пример Fore

Для выполнения примера предполагается наличие формы и расположенной на ней кнопки.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    CurPosition: IGxPoint;
Begin
    CurPosition := WinApplication.CursorPosition;
    Self.Text := CurPosition.X.ToString + " | " + CurPosition.Y.ToString;
End Sub Button1OnClick;

При нажатии на кнопку в заголовок формы будут выведены текущие экранные координаты курсора мыши.

Пример Fore.NET

Для выполнения примера предполагается наличие .NET-формы и расположенной на ней кнопки.

Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Ui;

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    WinAppCls: WinApplicationClass = New WinApplicationClassClass();
    CurPosition: GxPoint;
Begin
    CurPosition := WinAppCls.CursorPosition;
    Self.Text := CurPosition.X.ToString() + " | " + CurPosition.Y.ToString();
End Sub;