باز کردن زیر منو به روش دیگر

[علی رضائی]

http://www.yazdyar.com/images/help/qs.jpg

روی منوی - پیام به گروه - با موس کلیک کرده ایم و زیرمنوی مربوطه باز شده است.
اگر بخواهیم روی کلید - 2 buttuon - کلیک کنیم و در نتیجه این زیرمنو باز شود چه دستوری را باید در آن کلید بنویسیم؟
از راهنمائی شما پیشاپیش متشکرم.

[علی رضائی]

با تشکر فراوان از محبت شما و صرف وقت برای پاسخ و رفع اشکال.
در خط دوم - ItemI ndex - با فاصله تایپ شده است که موجب خطا می شود و صحیح آن - ItemIndex - است.
اگربرای آقای AhmadYousefi (http://barnamenevis.org/forum/member.php?u=20319) امکان دارد این قسمت از متن فوق را اصلاح کنند تا سایر کاربران درصورت استفاده از کد دچار پیغام خطا نشوند.
گره از کار خلق گشودن هنر است. مجددا از کاربر محترم آقای AhmadYousefi (http://barnamenevis.org/forum/member.php?u=20319) تشکر می نمایم.

[AhmadYousefi]

procedure TForm1.Button1Click(Sender: TObject);

procedure DropMenuAndSelectItem(MainMenuItemIndexAccel,ItemI ndex:integer);
var
n : integer;
begin
//Activate MainMenu
keybd_event( VK_MENU, Mapvirtualkey( VK_MENU, 0 ), 0, 0 );
keybd_event( VK_MENU, Mapvirtualkey( VK_MENU, 0 ), KEYEVENTF_KEYUP, 0 );

keybd_event( VK_RETURN, MapVirtualKey( VK_RETURN, 0), 0, 0 );
keybd_event( VK_RETURN, MapVirtualKey( VK_RETURN, 0), KEYEVENTF_KEYUP, 0 );

//Select MainMenuItem
while (MainMenuItemIndexAccel>0) do begin
keybd_event( VK_RIGHT, MapVirtualKey( VK_RIGHT, 0), 0, 0 );
keybd_event( VK_RIGHT, MapVirtualKey( VK_RIGHT, 0), KEYEVENTF_KEYUP, 0 );
Dec(MainMenuItemIndexAccel);
end;

//Select SubItem
while (ItemIndex>0) do begin
keybd_event( VK_DOWN, MapVirtualKey( VK_DOWN, 0), 0, 0 );
keybd_event( VK_DOWN, MapVirtualKey( VK_DOWN, 0), KEYEVENTF_KEYUP, 0 );
Dec(ItemIndex);
end;
end;

begin
//Drop and select second item of the first MainMenuItem
DropMenuAndSelectItem(0,2);
end;