Нужно произвести клик мышкой (левая клавиша) программно в чужом окне в определенном месте. Т. е. пример: есть окно с MainMenu, я программно подвожу к пункту меню курсор мыши и совершаю клик по этому элементу меню, т. е. раскрывается пункт меню... Как осуществить?

SendMessage(XXX,BM_CLICK,0,0)

Я взял пока собственную форму:

Код

procedure TForm1.Button4Click(Sender: TObject); var  Wnd: HWND; begin  SetCursorPos(Form1.Left + 10, Form1.Top + 30);  Wnd:=GetActiveWindow;  SendMessage(Wnd, BM_CLICK, 0, 0); end;

Эффект нулевой, т. е. меню не раскрывается...

Код

procedure TForm1.Button1Click(Sender: TObject); begin  Close; end; procedure TForm1.Button2Click(Sender: TObject); var i:DWord; begin  i:=FindWindowEx(Form1.Handle,0,nil,'Button1');  if i<>0 then SendMessage(i,BM_Click,0,0); end;

С кнопкой-то понятно, т. к. все просто. Но что с MainMenu делать?

Цитата

С кнопкой-то понятно, т. к. все просто. Но что с MainMenu делать?

PostMessage(....Handle, WM_KeyDown, VK_DOWN, 0);

alexeis1, не работает.

Код

var  Wnd: HWND; begin  SetCursorPos(Form1.Left + 10, Form1.Top + 30);  Wnd:=Form1.Handle;  PostMessage(Wnd, WM_KeyDown, VK_DOWN, 0);

Добавлено @ 12:27
Все поиски ищут у нас объекты типа HWND, а меню у нас типа HMENU. Может есть похожий способ отыскания меню и работы с ним?

Вероятно
PostMessage(MainMenu1.Handle, WM_KeyDown, VK_DOWN, 0);

Цитата(alexeis1 @ 28.10.2005, 13:32)

MainMenu1.Handle

А как узнать Handle этого меню в абсолютно чужом окне?

С помощью программы
WinSight - поставка Delphi
Ставишь галочку Spy -> Folow focus -> жмешь на меню нужной программы

Сторонняя программа отпадает сразу. Все нужно делать в программе, т. е. на месте.

Можно поинтересоватся , что за прога в которой нужно нажать на меню, мож в меню есть связанные клавиши с пунктами меню???

Цитата(Romikgy @ 28.10.2005, 16:11)

мож в меню есть связанные клавиши с пунктами меню

Очень может быть... Но это уже в другой теме.

Как я начинаю понимать, реализовать задуманное невозможно.

Как я вижу решение проблемы отсутсвует...

Цитата

Но что с MainMenu делать?

А...а! Не правильно понял...

Цитата

Как я вижу решение проблемы отсутсвует...

Вот смотри к примеру первое меню не имеет вложенного мени(SubMenu)... тогда задействовать обработчик за ним вот так: SendMessage(XXX,WM_Command,3,0); А если он имеет под меню... то тогда а тебе надо его вызвать, то енто: TrackPopupMenu(дискрептор вызываемого меню, TPM_LEFTALIGN or TPM_LEFTBUTTON,...)

К примеру тебе надо вызвать обработчик меню которое находиться во втором меню в 2 позиции(и при ентом первое меню содержит 3 подменю, и они без вложенных меню ), тогда так: SendMessage(XXX,WM_Command,7,0);

Где XXX - енти дескриптор окна которому принадлежит меню(MainMenu)

Удачи.

Добавлено @ 23:10
Забыл добавить... что было проше в вычислениях номера используй GetMenuItemID