VPF::Динамическая настройка меню при запуске программы

former

Дата 3.3.2006, 18:30 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17

Как заставить программу во время запуск или отображения заставки проверять наличие нескольких DLL и в соответствии с результатом динамически настраивать главное меню? Если библиотека не найдена, то сообщение об этом выдавать не надо. Если можно, пример.

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Демо

Дата 3.3.2006, 18:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Вопрос в проверке наличия DLL или динамического формирования меню?

--------------------

former

Дата 3.3.2006, 18:40 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17

И в том и в другом. То есть при наличии определённых библиотек, определённым образом сформировать меню главной программы.

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Демо

Дата 3.3.2006, 18:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

former,

Наличие файла проверяется функцией FileExists, наличие корректной библиотеки - LoadLibrary+GetProcAddress.
Добавлено @ 18:44
А вот небольшой пример из проекта:

Код


procedure TMainDisp.SetMenuApps;
var
  i: Integer;
  MI: TMenuItem;
begin
  for i := 0 to mm.Items[0].Count-1 do mm.Items[0].Items[0].Free;
  for i := pmIconTray.Items.Count-1 downto 3 do
  begin
    MI := pmIconTray.Items[i];
    pmIconTray.RemoveComponent(MI);
    MI.Free;
  end;

  for i := 0 to AppsCounter-1 do
  begin
    MI := TMenuItem.Create(mm);
    MI.Caption := Apps[i].MenuStr;
    MI.OnClick := OnStartAppsClick;
    MI.Hint := Apps[i].CommentStr;
    MI.Tag := i;
    mm.Items[0].Add(MI);
    MI := TMenuItem.Create(pmIconTray);
    MI.Caption := Apps[i].MenuStr;
    MI.OnClick := OnStartAppsClick;
    MI.Tag := i;

    pmIconTray.Items.Add(MI);
  end;
end;

Здесь pmIconTray - PopupMenu.
Для гдавного меню изменений немного.

--------------------

former

Дата 3.3.2006, 18:44 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17

Всё, я вспомнил. Спасибо.

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »