![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Проблема в следующем. Есть окно входа в программу (логин/пароль). Есть меню. По хорошему бы, оно при вводе пароля не должно высвечиваться. Поэтому интуиция подсказала делать MainMenu.Destroy, а потом, если вход выполнен успешно, сделать MainMenu.Create(). В конструктор требуется передать "хозяина" AOwner: TComponent. Методом тыка привязал к Form1 (форме). Прога завалилась с ошибкой. Потом узнал что можно указывать Self или Application. Но и в этом случае ошибка. Типа ошибка доступа к памяти.
Есть сомнения в использовании Destroy. Но больше никаких идей нет. Кто нибудь - может проконсультировать в данной ситуации? Заранее спасибо ![]() |
#2
|
||||
|
||||
![]() А Hide и Show уже не в моде? или просто поставить form.MainMenu в nil, пока оно не надо...
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#3
|
|||
|
|||
![]() А почему нельзя просто скрыть все элементы меню при запуске
Код:
procedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin for i := 0 to ComponentCount - 1 do if Components[i] is TMenuItem then (Components[i] as TMenuItem).Visible := False; end; |
#4
|
||||
|
||||
![]() DJ PhoeniX
Form1.MainMenu := nil; ничего не изменит. Nyctos Kasignete Можно не извращаться (тем более, что твой код скроет не только все элементы TMainMenu ,но и все элементы TPopupMenu) Пиши так: Код:
for i:=0 to MainMenu1.Items.Count-1 do MainMenu1.Items[i].Visible := false; Велик и могуч наш Object Pascal ! ICQ: 357-591-887 Последний раз редактировалось Rokuell, 10.07.2009 в 22:43. |
#5
|
|||
|
|||
![]() Rokuell, можно не извращаться.
Скрыть меню: Код:
SetMenu(Handle, 0); Показать меню: Код:
SetMenu(Handle, MainMenu1.Handle); |