RW4PIR
Full Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Цитата: RW4PIR
Помести код в любой объект который поддеживает событие On Right-Click (можно и без но тогда замучиешься совсем) только без строки if (e_Type == RIGHT_BUTTON_DOWN) then в событие On Mause Move
Код:и в строке замени nRes = Application.ShowPopupMenu(nM_x, nM_Y, tblMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true);
дальше выполняем действия
Код: if(nRes == 101)then
--действие которое произойдет при выборе пункта субМеню SubItem 1
elseif(nRes == 102)then
--действие которое произойдет при выборе пункта субМеню SubItem 2
end |
|
не работает, я зделал так:
Цитата: tblMenu = {};
tblMenu[1] ={};
tblMenu[1].Text = "Ìåíþ";
tblMenu[1].ID = 100;
tblMenu[1].Checked = false;
tblMenu[1].Enabled = true;
tblMenu[1].SubMenu = {};
tblMenu[1].SubMenu[1] = {};
tblMenu[1].SubMenu[1].Text = "Ìåíþ 1";
tblMenu[1].SubMenu[1].ID = 101;
tblMenu[1].SubMenu[1].Checked = false;
tblMenu[1].SubMenu[1].Enabled = true;
tblMenu[1].SubMenu[2] = {};
tblMenu[1].SubMenu[2].Text = "Ìåíþ 2";
tblMenu[1].SubMenu[2].ID = 102;
tblMenu[1].SubMenu[2].Checked = false;
tblMenu[1].SubMenu[2].Enabled = true;
tblMenu[2] ={};
tblMenu[2].Text = "Ìåíþ 2";
tblMenu[2].ID = 100;
tblMenu[2].Checked = false;
tblMenu[2].Enabled = true;
tblMenu[2].SubMenu = {};
tblMenu[2].SubMenu[1] = {};
tblMenu[2].SubMenu[1].Text = "Ìåíþ 1";
tblMenu[2].SubMenu[1].ID = 101;
tblMenu[2].SubMenu[1].Checked = false;
tblMenu[2].SubMenu[1].Enabled = true;
tblMenu[2].SubMenu[2] = {};
tblMenu[2].SubMenu[2].Text = "Ìåíþ 2";
tblMenu[2].SubMenu[2].ID = 102;
tblMenu[2].SubMenu[2].Checked = false;
tblMenu[2].SubMenu[2].Enabled = true;
tblMenu[2].SubMenu[3] = {};
tblMenu[2].SubMenu[3].Text = "Ìåíþ 3";
tblMenu[2].SubMenu[3].ID = 102;
tblMenu[2].SubMenu[3].Checked = false;
tblMenu[2].SubMenu[3].Enabled = true;
tblMenu[2].SubMenu[3].SubMenu = {};
tblMenu[2].SubMenu[3].SubMenu[1] = {};
tblMenu[2].SubMenu[3].SubMenu[1].Text = "Ìåíþ 3";
tblMenu[2].SubMenu[3].SubMenu[1].ID = 102;
tblMenu[2].SubMenu[3].SubMenu[1].Checked = false;
tblMenu[2].SubMenu[3].SubMenu[1].Enabled = true;
local e_X = System.GetMousePosition(true, nil).X;
local e_Y = System.GetMousePosition(true, nil).Y;
nRes = Application.ShowPopupMenu(e_X, e_Y, tblMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true); |
теперь всё работает 
Добавлено:
можно даже в шапку прикрепить ))) может кому пригодится
Добавлено:
кстате значки прикреплять к меню я тоже разобрался как, всё очень просто |
Всего записей: 563 | Зарегистр. 16-03-2009 | Отправлено: 00:18 04-05-2010 | Исправлено: RW4PIR, 00:59 04-05-2010 |
|
-умер, сорри... 
Ответы на наиболее часто задаваемые вопросы: 
