доступ к элементам дизайна
Имеется форма(F1). На ней расположена MenuButton (MenuButton1). MenuButton имеет menu items (IP1,IP2,IP3).
Необходимо чтобы при определенных событиях некоторые menu items скрывались.
т.е. возможно ли сделать данное через что то типа :
CASE ... OF
...:
BEGIN
CurrForm.MenuButton1.IP1.Visible := TRUE;
CurrForm.MenuButton1.IP2.Visible := FALSE;
CurrForm.MenuButton1.IP3.Visible := FALSE;
END;
...:
---//---- и т.д.
END;
?
Можно конечно наделать на все случаи MenuButton - ов с необходимыми пунктами меню и потом вызывать типа:
CASE ... OF
...:
BEGIN
CurrForm.MenuButton1.Visible := TRUE;
CurrForm.MenuButton2.Visible := FALSE;
END;
... :
BEGIN
CurrForm.MenuButton1.Visible := FALSE;
CurrForm.MenuButton2.Visible := TRUE;
END
END;
но может есть другой путь?
подскажите pls, заранее спасибо.
|