이 주의 팁

동적 메뉴 쉽고 빠르게 만들기 --2번째

1월 12일 팁에서, 동적으로 메뉴 아이템을 만드는 테크닉을 알아 보았습니다. 원 예제에서 items의 Visible 속성을 바꾸었었습니다. 그 이후로 독자들이 원래의 테크닉에 기초를 둔 또다른 제안을 했습니다. 모든 메뉴안의 모든 아이템을 바꾸기 위해, 폼의 Components 속성을 사용하는 것입니다. 새로운 예제는 치환문을 사용합니다.
여기에 새로운 예제에 대한 몇가지 단계가 있습니다. 일반적으로 하는 것처럼 메뉴를 만듭니다. 그런다음 접근 권한 을 줄 수 있는 Tag 속성을 사용합니다. 예를 들면, File|Open의 Tag 속성과 File|Close의 Tag 속성을 2로 치환합니다. File|New, File|Save, File|Print의 Tag 속성은 3으로 치환합니다. OnCreate이벤트에서 다음과 같이 합니다.

void __fastcall TForm1::FormCreate(TObject *Sender)
{
for (int i = 0; i < ComponentCount; i++)
if (dynamic_cast (Components[i]) != 0 )
(dynamic_cast(Components[i]))->Visible = (2 >= (dynamic_cast(Components[i]))->Tag);
}
이 코드는 유저의 접근 단계를 비교합니다. 유저 접근 단계는 Tag 속성으로 정합니다. 만약에 유저가 Tag 값과 똑같거나 크지 않다면 메뉴 아이템을 보이지 않을 것입니다.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
for (int i = 0; i < MainMenu1->Items->Count;i++)
{
   if (UserLevel < MainMenu1->Items->Items[i]->Tag)
     MainMenu1->Items->Items[i]->Visible = false;
   else
     MainMenu1->Items->Items[i]->Visible = true;
   for (int j = 0; j < MainMenu1->Items->Items[i]->Count;j++)
     if (UserLevel < MainMenu1->Items->Items[i]->Items[j]->Tag)
       MainMenu1->Items->Items[i]->Items[j]->Visible = false;
     else
       MainMenu1->Items->Items[i]->Items[j]->Visible = true;
}
}

이 코드는 유저 액세스 권한을 비교합니다. 만약에 권한이 없다면 메뉴 아이템은 아예 나타나지도 않을 것입니다.

참고사항: Delphi에서는 MainMenu1->Items->Items[i] 이 MainMenu1.Items[i]입니다.