Что нового
Автор:
Фильтры

[Окна, Диалоги] SendMessage в выпадающее меню на Delphi

R

r35p3ct

Продвинутый
Сообщения
228
Репутация
60
Всем привет!
Решил добить контроллы в программен на Delphi.
Есть кнопка красная, вобщем щас работаю с ней через MouseClick, после этого выпадает меню с такими параметрами:
>>>> Window <<<<
Title:
Class: #32768
Position: 401, 669
Size: 364, 125
Style: 0x94800000
ExStyle: 0x00000189
Handle: 0x000A073A

>>>> Control <<<<
Class:
Instance:
ClassnameNN:
Name:
Advanced (Class):
ID:
Text:
Position:
Size:
ControlClick Coords:
Style:
ExStyle:
Handle: 0x005B068A

>>>> Mouse <<<<
Position: 111, 32
Cursor ID: 0
Color: 0x08246B

>>>> StatusBar <<<<

>>>> ToolsBar <<<<

>>>> Visible Text <<<<


>>>> Hidden Text <<<<
дальше кликается так же на пункт.

Щас начал осваивать работу в фоновом режиме.
Код: 
#Include <WinAPI.au3>

Global $hWnd974 = ControlGetHandle(WinGetHandle('ПРОГА'), '', '[CLASS:TToolbar97;INSTANCE:4]');Менюшко с +

DllCall('user32.dll', 'int', 'SendMessage', 'hwnd', $hWnd974, 'int', 0x0201, 'int', 1, 'dword', _WinAPI_MakeLong('12', '16'))

Этот код вызывает меню, после чего тормозится выполнение скрипта, пока это меню не закрыть, кликнув мышко по нему или в любое место в проге.
Winspector, ничего полезного не показал(
1. Почему блокируется выполнение скрипта? иначе в принципе можно было бы использовать такой же клик но уже ниже по пункту меню...
2. Как можно выбрать пункт меню, через SendMessage или функции Control ...?


PS Пробывал работать с hwnd этой менюшки отдельно, тоже не вышло, ни ControlClick, ни Focus.
 
Автор
R

r35p3ct

Продвинутый
Сообщения
228
Репутация
60
Первый вопрос решен.
Остался вопрос с выбором пункта. Как выбрать?
Текст можно получить с помощью:
Код: 
_GUICtrlMenu_GetItemText

Но как выбрать нужный пункт с помощью _GUICtrlMenu я так и не понял, выделить можно, а кликнуть?

ЗЫ WinMenuSelectItem не работает. Номера ID у пунктов нет.


Добавлено:
Сообщение автоматически объединено:

Работает так:
Код: 
$hWnd  = WinGetHandle("[CLASS:#32768]")
$hMenu = _SendMessage($hWnd, '0x01E1', 0, 0)
$aRect = _GUICtrlMenu_GetItemRect($hWnd, $hMenu, 0);0-первый пункт меню
ControlClick('','',$hWnd,'',1,$aRect[0],$aRect[1])

Специальной комманды походу нет.
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
Xabib2302 [Окна, Диалоги] Как добавить иконку в заголовок MsgBox и в панель задач после запуска скрипта Общие вопросы по AutoIt 3
N [Окна, Диалоги] Изменение Label в окне Общие вопросы по AutoIt 2
Э [Окна, Диалоги] UDF с оформленными MsgBox под ситуации Общие вопросы по AutoIt 7
M [Окна, Диалоги] По умолчанию запускается в трее, а нужно вывести на панель задач Общие вопросы по AutoIt 4
Dm666 [Окна, Диалоги] Активировать нужное окно Excel при нескольких открытых Общие вопросы по AutoIt 4
Похожие темы
[Окна, Диалоги] Как добавить иконку в заголовок MsgBox и в панель задач после запуска скрипта
[Окна, Диалоги] Изменение Label в окне
[Окна, Диалоги] UDF с оформленными MsgBox под ситуации
[Окна, Диалоги] По умолчанию запускается в трее, а нужно вывести на панель задач
[Окна, Диалоги] Активировать нужное окно Excel при нескольких открытых
Верх