Пользовательское окно сообщения: функция «Переместить курсор на кнопку по умолчанию» в Windows - PullRequest
0 голосов
/ 11 марта 2010

В Microsoft Windows есть (очень полезная) функция, которая автоматически перемещает курсор на кнопку по умолчанию модального диалогового окна (активируется в Win + R, «управление мышью»).

Теперь я создал настраиваемое диалоговое окно в Delphi (в основном TForm), см. Ниже.


(источник: rejbrand.se )

Но, естественно, курсор не перемещается автоматически к кнопке по умолчанию (в данном случае «Да»), даже если эта функция включена в «управляющей мыши».

Как реализовать эту функцию с помощью Windows API? Я думаю, было бы достаточно получить настройки в виде логического значения (true, если функция активирована, false, если нет), а затем просто переместить курсор программно, используя SetCursorPos, если true. Но как получить этот параметр?

1 Ответ

3 голосов
/ 12 марта 2010

Вызов SystemParametersInfo () с SPI_GETSNAPTODEFBUTTON

...