Создание Меню из DLL

← →
Alkmas (2004-05-04 12:58) [0]

Здравствуйте все!

В DLL передаю Application.
Создаю главное меню из DLL:

var
MainMenu : TMainMenu;
MenuItem : TMenuItem;
begin
MainMenu := TMainMenu(Application.MainForm.FindComponent("MainMenu"));
MainMenu := TMainMenu.Create(Application.MainForm);
MainMenu.Name := "MainMenu";
MainMenu.Tag := 0;
MenuItem := TMenuItem.Create(Application.MainForm);
MainMenu.Items.Add(MenuItem);
MenuItem.Caption := "Файл";

Но меню не появляется.

С уважением Александр.

← →
Gero © (2004-05-04 13:01) [1]

> MainMenu := TMainMenu(Application.MainForm.FindComponent("MainMenu"));

Эта строчка не нужна.

Осталось в конец этого кода добавить Application.MainForm.Menu := MainMenu.

← →
Alkmas (2004-05-04 13:07) [2]

Большое спасибо Gero!!!

Получилось !!!

Создание Меню из DLL Найти похожие ветки