[uisovec]

Проблема в следующем. Есть окно входа в программу (логин/пароль). Есть меню. По хорошему бы, оно при вводе пароля не должно высвечиваться. Поэтому интуиция подсказала делать MainMenu.Destroy, а потом, если вход выполнен успешно, сделать MainMenu.Create(). В конструктор требуется передать "хозяина" AOwner: TComponent. Методом тыка привязал к Form1 (форме). Прога завалилась с ошибкой. Потом узнал что можно указывать Self или Application. Но и в этом случае ошибка. Типа ошибка доступа к памяти.
Есть сомнения в использовании Destroy. Но больше никаких идей нет. Кто нибудь - может проконсультировать в данной ситуации? Заранее спасибо

[PhoeniX]

А Hide и Show уже не в моде? или просто поставить form.MainMenu в nil, пока оно не надо...

[Nyctos Kasignete]

А почему нельзя просто скрыть все элементы меню при запуске

Код:

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;

а после авторизации отобразить тем же самым способом?

[Rokuell]

DJ PhoeniX
Form1.MainMenu := nil; ничего не изменит.

Nyctos Kasignete
Можно не извращаться (тем более, что твой код скроет не только все элементы TMainMenu ,но и все элементы TPopupMenu)

Пиши так:

Код:

 for i:=0 to MainMenu1.Items.Count-1 do
  MainMenu1.Items[i].Visible := false;

[Nyctos Kasignete]

Rokuell, можно не извращаться.

Скрыть меню:

Код:

SetMenu(Handle, 0);

Показать меню:

Код:

SetMenu(Handle, MainMenu1.Handle);