Скачать: CL | DM;

Как получить список всех пунктов меню для организации доступа   Найти похожие ветки 

← →
xpublic ©   (2007-06-13 12:05) [0]

Хочу организовать доступ пользователей к пунктам меню, но незнаю как сразу по всему проекту получить список пунктов меню, чтоб потом загнать их в базу и роздавать права.

---

← →
Desdechado ©   (2007-06-13 12:10) [1]

TActionList

---

← →
Loginov Dmitry ©   (2007-06-13 12:24) [2]

> но незнаю как сразу по всему проекту получить список пунктов
> меню, чтоб потом загнать их в базу и роздавать права.


С помощью рекурсивного обхода дерева пунктов главного меню.

---

← →
Desdechado ©   (2007-06-13 12:52) [3]

> дерева пунктов главного меню.
Всех главных меню всех форм.

---

← →
xpublic ©   (2007-06-13 13:29) [4]

всем спасибо, уже сам розобрался:
procedure TfrmTest.Button1Click(Sender: TObject);
var
i,j:integer;
Form, Comp: TComponent;
begin
 for i:=0 to Screen.FormCount-1 do
  begin
   Form:=Screen.Forms[i];
     for j:=0 to Form.ComponentCount-1 do
       begin
        Comp:=Form.Components[j];
          if (Comp is TMenuItem) then
            Memo1.Lines.Add(Form.Name+",   "+Comp.Name+",   "+TMenuItem(Comp).Caption); //+",   "+TMenuItem(Comp)
       end;
  end;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c