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

← →
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]

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

всем спасибо, уже сам розобрался:
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;

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