Mega Code Archive
Programmatically dropping down a menu
<![CDATA[
Question:
How can I programmatically drop a menu down in code?
Answer:
The following example demonstrates both dropping down a menu and
selecting a menu item by synthesize menu shortcut keys. If your
application does not have shortcut keys assigned to the menu items,
you can send combinationsof the VK_MENU, VK_LEFT, VK_DOWN, and
VK_RETURN keys to programmatically navigate the menu.
procedure TForm1.Button1Click(Sender: TObject);
begin
//Allow button to finish painting in response to the click
Application.ProcessMessages;
{Alt Key Down}
keybd_Event(VK_MENU, 0, 0, 0);
{F Key Down - Drops the menu down}
keybd_Event(ord('F'), 0, 0, 0);
{F Key Up}
keybd_Event(ord('F'), 0, KEYEVENTF_KEYUP, 0);
{Alt Key Up}
keybd_Event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);
{F Key Down}
keybd_Event(ord('S'), 0, 0, 0);
{F Key Up}
keybd_Event(ord('S'), 0, KEYEVENTF_KEYUP, 0);
end;
]]>