seleccionar una opción de un popup por código

[mangels]

Hola, estoy desplegando un popup menú por código de esta forma:

Código Delphi [-]
procedure desplegaMenu(boton: TButton);
var
  p: TPoint;
begin
  p := boton.ClientToScreen(Point(0, boton.Height));
  boton.DropdownMenu.Popup(p.X, p.Y);
end;

Lo que me gustaría es que además de desplegar el menú quedará seleccionado el primer ítem para poder hacer Intro directamente, ahora no hay seleccionado ninguno y tengo que moverme con las teclas de cursor o con el mouse para activar el que me interesa.

Lo único que se me ha ocurrido ha sido incluir esta línea (simular que pulso la tecla de cursor abajo), pero no me ha funcionado:

Código Delphi [-]
PostMessage(TAdvPopupMenu(boton.DropdownMenu).Handle, WM_KEYDOWN, VK_DOWN, 0);

Si alguien me puede ayudar... Gracias

[[coso]]

Hola,

existe la propiedad PopupMenu.Items.MenuIndex. No se bien bien como funciona pero creo que va por alla lo que buscas.

saludos

[roman]

No sé si lo que voy a decir aplica al menú que estás usando (AdvPopupMenu) aunque posiblmente sí, si se trata de un derivado del PopupMenu de Delphi.

Un popup menu se muestra usando la función TrackPopupMenu de la API de Windows. A esta función se le pasa como uno de sus parámetros, el identificador de la ventana que va a procesar los mensajes del menú. Este identificador no es lo mismo que el identificador del menú en sí (PopupMenu.Handle), por eso, el PostMessage que usas no sirve, porque no va dirigido al lugar correcto.

Ahora bien, la ventana que maneja los mensajes del menú, no es -en el caso de Delphi- el formulario donde está el menú, sino una ventana creada expresamente para esa tarea y cuyo identificador está guardado en PopupList.Window (PopupList es un objeto definido en la unidad Menus.pas).

En resumen, puedes hacer:

Código Delphi [-]
PostMessage(Menus.PopupList.Window, WM_KEYDOWN, VK_DOWN, 0);

// Saludos

[mangels]

He puesto la instrucción de roman y me ha funcionado perfectamente, pero sólo cuando la he puesto en el evento OnPopup del menú. He probado en varios sitios (después de hacer el .Popup(p.X, p.Y), después de llamar a la función que desplega el menú... y nada), suerte que al final se me ha ocurrido probar en el evento...

Código Delphi [-]
 
procedure TFMain.PopOpcionesPopup(Sender: TObject);
begin
  PostMessage(menus.PopupList.Window, WM_KEYDOWN, VK_DOWN, 0);
end;

Muchas gracias por la ayuda!

[roman]

Yo lo probé en el evento onclick de un botón y funcionó bien. Noto en tu código original que tienes un botón al que le asignaste el menú en su propiedad DropDownMenu, cosa que yo no hice. Quizá esto sea lo que está afectando.

// Saludos