powered by simpleCommunicator - 2.0.50     © 2025 Programmizd 02
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / как сымитировать клик мыши
5 сообщений из 5, страница 1 из 1
как сымитировать клик мыши
    #32535491
roleks
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
именно сымитировать

для чего?
например, на кнопке в ДВ остается фокус после клика, его надо убрать

....
...
Рейтинг: 0 / 0
как сымитировать клик мыши
    #32535547
PaulJB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
[DECLARATION]
Function ulong SendMessage (ulong hWnd, uint Msg, ulong wParam, ulong lParam) Library "USER32.DLL" Alias for "SendMessageA"

[PowerScript]
sendmessage( hWnd, 513, X, Y ) // Жмем
sendmessage( hWnd, 514, X, Y ) // Отпускаем
...
Рейтинг: 0 / 0
как сымитировать клик мыши
    #32535551
Фотография Филипп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Глупость, конечно, но можно использовать SendInput Win32 API.
При этом нужно будет вычислить абсолютные координаты такого места в datawindow, в котором клик мыши не вызовет исполнения какого нибудь вашего (или native) кода, короче флаг вам в руки :-)
...
Рейтинг: 0 / 0
как сымитировать клик мыши
    #32536285
alexis glinski
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
a escho vmesto button'a mozhno ispol'zovat' text control, u kotorogo mozhno izmenyat' border ;)
...
Рейтинг: 0 / 0
как сымитировать клик мыши
    #32536537
PaulJB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
для отключения фокуса на батоне Datawindow я делал так:

sendmessage( hanle(dw), 513, 0, 0 ) // Жмем
sendmessage( handle(dw), 514, 0, 0 ) // Отпускаем

Конечно если в координатах 0,0 нет контролов получающих фокус ввода.
У меня (обычно) никогда так не бывает.
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / как сымитировать клик мыши
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]