VPF::Загрузка TMainMenu из файла - Форум программистов

Navista

Дата 17.6.2014, 00:30 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 16.6.2014

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

Всем здоровья и процветания.
Работа с TMainMenu точнее с его итемами.

Код


Folder:= MainMenu1.Items[0].Items[3].Items[0].Items[1].Items[0].Name;

. Программа типа хелп где каждый раскрывающийся итем это папка каждый вложенный итем + имя или надпись это название файла "*.mht". Таковых пока набирается сотни три, для каждого клик прописывать огород городить.

Код


  FMemStream.LoadFromFile('C:\Новая_папка\Новая_папка\Проекты\Project1\'+Folder+'\'+HildFolder+'\'+opFile+'.mht');

Как это реализовать методом выбора smile

с коментом.
Спасибо.

kami

Дата 17.6.2014, 09:57 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 22
Всего: 72

Цитата(Navista @ 17.6.2014, 00:30

)

Таковых пока набирается сотни три

Имхо, стоит пересмотреть пользовательский интерфейс. Даже если MenuItem`s генерятся автоматически.

Код


function MenuItemPath(mi: TMenuItem): string;
var
  Parentmi: TMenuItem;
begin
  Result:=mi.Caption+'.mht';
  Parentmi:=mi.Parent;
  while Assigned(Parentmi) do
    begin
      Result:=IncludeTrailingPathDelimiter(Parentmi.Caption)+Result;
      Parentmi:=Parentmi.Parent;
    end;
  Result:=StringReplace(Result, '&', '', [rfReplaceAll]);
end;

procedure TForm2.MenuItemClick(Sender: TObject);
begin
  Caption:=MenuItemPath(TMenuItem(Sender));
end;

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