15.03.2007, 13:19
|
 |
Модератор
|
|
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,907
Версия Delphi: Delphi XE
Репутация: выкл
|
|
Код:
var
NewItem:TMenuItem;
begin
NewItem:=TMenuItem.Create(PopupMenu1);
NewItem.Caption:='Run time element';
PopupMenu1.Items.Add(NewItem);
end; |