Показать сообщение отдельно
  #1  
Старый 25.07.2008, 13:14
JIexa21 JIexa21 вне форума
Прохожий
 
Регистрация: 23.07.2008
Адрес: Россия, Новочебоксарск
Сообщения: 15
Репутация: 10
По умолчанию Помогите пожалуйста с хитрым меню

Помогите пожалуйста разобраться с менюхами.
Есть ini файл приблизительно такого содержания:
group=Группа 1
пункт1=файл1
пункт2=файл2
пункт3=файл3

group2=Группа2
пункт4=файл4
пункт5=файл5
и т.д.
Т.е. заголовок группы должно быть меню со стрелкой, а там должны быть списки с пунктами при выборе которых возвращается нужное значение. Пока вот что написал, но че делать дальше не представляю - при создании сабменю какие-то ошибки выходят и не понятно как вытащить данные о выборе...
Код:
Procedure TfmMain.InitChipMenu();
var
i,posit,len:integer;
str,str2:string;

begin

  OOptions := TStringList.create;
  OOptions.LoadFromFile(ExtractFilePath(Application.ExeName)+'options.cfg');

  for i:= 0 to OOptions.Count - 1 do begin

    str := OOptions.Strings [i]	;
    if pos(';',str)=0 then begin

    len := Length(str);
      posit := pos('GROUP=',str);
      if posit > 0 then begin
        str2 :=copy(str,7,len-posit);
        chip1.Add(NewItem(str2,0,False,True,MenuItem1Click,0,'MenuItem1'));
         //chip1.Add(NewSubMenu(str2,0,str2,ai,true));
      end;
    end;
  end;
end;

Найденные примеры в сети и на этом сайте ограничиваются стандартным набором. Тут набор пунктов заранее может быть не известным.
Ответить с цитированием