Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > вызов формы с MainMenu

Автор: rith2 17.5.2009, 13:29

Привет.

Такая проблема:

Есть Form1 и Form2

При создании Form1 - вызываю Form2 и вставляю ее внутрь Form1. У Form2 есть компонент MainMenu, но почемуто оказавшись внутри Form1 - у Form2 пропадает MainMenu, хотя остальные компоненты присутствуют.

Код


uses
   ...SecondUnit...;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
...
var
...
  a:TForm2;
implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  a := TForm2.Create(Form1);
  a.Parent := Form1;
  a.Visible := True;
end;
end.

Может показаться глупым вставлять одну форму внутрь другой - просто не могу понять, почему так происходит?

Автор: rith2 17.5.2009, 14:25

Если для вызываемой Form2 не указать свойство Parent - Form1 , то Form2 появляется в отдельном окне и там MainMenu присутствует... , а если Parent указан (Form1), то нифига :(

Автор: MetalFan 17.5.2009, 16:35

на то оно и mainmenu, когда "аттачишь" окно с MainMenu к другому окну с MainMenu, вызывай TMainMenu.Merge/TMainMenu.UnMerge соответственно