Mainmenu

[San4o]

Всем йоуу!)

У меня есть меню с различными подменю. можно ли и как вставить динамически пункт меню в подменю?

подробнее в приложении(например добавить в выделенне поле)...

[Пепел Феникса]

var MI:TMenuItem;
begin
 MI:=TMenuItem.Create(nil);
 MI.Caption:='bla';
 N451.Add(MI);

добавит к пункту с именем N451(в коде) подпункт с названием bla

Всем йоуу!)

не стоит так приветствовать.

[San4o]

Спасибо. Хорошо.

Столкнулся с еще проблемкой...

При загрузке программа читает инифаил и по количеству секций создает пункты меню в подпунктах главного меню(как это делать я разобрался). Задача в следующем...
как в onclick созданного пункта меню записать индивидуальную процедуру для чтения в строку из инифайла ключей только выбранной секции(инифайла)=пункт меню?

[Пепел Феникса]

можно написать процедуру(как метод формы)
для чтения секции...имя нужной секции определять через Sender

[San4o]

2 Пепел Феникса
а можно по подробнее, я не совсем понял.

>можно написать процедуру(как метод формы)
>для чтения секции...имя нужной секции определять через Sender

Это круто. только как задавать для вновь созданного пункта меню уникальный обработчик onclick, чтобы он забирал caption пункта(она же секция в инифайле) и по этому caption'у вытаскивал соответственные ключи?

т.е. у создаваемого пункта был общий шаблон onclick:
TForm1.mymenuclick(Sender:TObject);
begin
if mymenu.checked then mymenu.checked:=true
else
mymenu.checked:=false;

proc(mymenu.caption);
end;

[Stilet]

т.е. у создаваемого пункта был общий шаблон onclick:

Для каждого ITEMа меню ты описывешь единый обработчик:

TForm1.mymenuclick(Sender:TObject);
begin
 proc(TMenuItem(Sender).caption);
end;

TMenuItem(Sender) - будет указывать на тот итем который был кликнут.

[San4o]

2 Silet

Ты БОГ! спасибо

[Stilet]

Ты БОГ! спасибо

Азъ есм Альфа ибн Омега. Пожалуйста.