Динамическое MainMenu

[dr.Chas]

Как всем созданым менюшкам добавить событие Onclick?

var MyMenuItem: TMenuItem;   

for i:=0 to MainMenu1.Items.Items[0].Items[9].Count-1 do
begin
  MyMenuItem:=TMenuItem.Create(MainMenu1);
  MainMenu1.Items.Items[0].Items[9].Add(MyMenuItem);
  MainMenu1.Items[0].Items[9].Enabled:=true;
end;

[UserOK]

в форме кликнуть как и на любой объект) выскочит пустая процедура OnClick )) это как ответ на поставленную задачу) тем более менюшек судя по коду не много))
а по поводу кода
MyMenuItem:=TMenuItem.Create(MainMe nu1);
в цикле лишнее)

[dr.Chas]

Сообщение от UserOK

в форме кликнуть как и на любой объект) выскочит пустая процедура OnClick ))

Динамическим создаваемым пунктам добавить событие OnClick.
Добовляемая процедура одна и тажа.
Так не получаеться

........
MyMenuItem.Click:=NclickM;

[mutabor]

Нужно написать процедуру, метод класса формы, и ее назначить всем менюшкам.
Событие OnClick у них есть, его не надо добавлять, ему нужно присвоить нужную процедуру.
Как это выглядит в коде можешь тут посмотреть
http://www.programmersforum.ru/showthread.php?t=19834

[dr.Chas]

Сообщение от mutabor

Нужно написать процедуру, метод класса формы, и ее назначить всем менюшкам.
Событие OnClick у них есть, его не надо добавлять, ему нужно присвоить нужную процедуру.
Как это выглядит в коде можешь тут посмотреть
http://www.programmersforum.ru/showthread.php?t=19834

Оказываеться всё правильно сделал, ошибся пцц просто, ни кто и не заметил)) Вместо этого

MyMenuItem.OnClick:=NclickM;

Написал вот это.

MyMenuItem.Click:=NclickM;

Ну всё равно пасиб.