Показать сообщение отдельно
  #4  
Старый 05.08.2008, 11:16
ART ART вне форума
Продвинутый
 
Регистрация: 13.02.2006
Адрес: Магнитогорск
Сообщения: 669
Репутация: 14745
По умолчанию

Кидай на форму Button и MainMenu. В MainMenu создай первый пункт (типа 'файл' в программах).
В обработчиках событий пиши следующее:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 item: TMenuItem;
 i: integer;
begin
//динамически создаем пункты меню
for i := 1 to 15 do begin
 item  :=  TMenuItem.Create(self);
 MainMenu1.Items[0].Add(item);
 item.Caption  :=  'item '  +  inttostr(i);
 item.tag  :=  i;
 item.OnClick  :=  ItemClick;
end;
end;

procedure TForm1.ItemClick(Sender: TObject);
begin
 Showmessage(IntToStr((Sender as TMenuItem).tag)) ; //с tag'ом можешь делать все,  что хочешь 
end;

end.
Ответить с цитированием