WhiteUnicorn

	#WhiteUnicorn/ StartPage/ Documentation/DelphiFAQ >

Frequently Asked Questions

Programmatically dropping down a menu

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;

	#WhiteUnicorn/ StartPage/ Documentation/DelphiFAQ >

	Anastasija aka WhiteUnicorn	LiveJournal PhotoFile