| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как получить список всех пунктов меню для организации доступа [D7, WinXP]
xpublic © (2007-06-13 12:05:00)Хочу организовать доступ пользователей к пунктам меню, но незнаю как сразу по всему проекту получить список пунктов меню, чтоб потом загнать их в базу и роздавать права.
xpublic (2007-06-13 13:29:00) [1]всем спасибо, уже сам розобрался:
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;
Desdechado (2007-06-13 12:52:00) [2]> дерева пунктов главного меню.
Всех главных меню всех форм.
Loginov Dmitry (2007-06-13 12:24:00) [3]> но незнаю как сразу по всему проекту получить список пунктов
> меню, чтоб потом загнать их в базу и роздавать права.
С помощью рекурсивного обхода дерева пунктов главного меню.
Desdechado (2007-06-13 12:10:00) [4]TActionList
| |
