За последние 60 дней ни разу не выходила
Сайт листа:
http://codeguru.ru
Открыт:
21-09-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.prog.prog-list@subscribe.ru
Адрес
модератора: comp.soft.prog.prog-owner@subscribe.ru
Здравствуйте!
Проблема заключается в следующем: подскажите как добавлять пункты меню
в попап меню(но не в конец или начало, а в суюменю) по ходу выполнения программы,
то есть динамически.
Желательно кусочек кода.
Буду очень благодарен за помощь.
Здравствуйте monah,
Wednesday, March 31, 2004, 9:30:38 AM, вы писали:
Привет!
Нет, ты наверное меня не так понял. Мне нужно засунуть именно в
_субменю_.
Hi!
А разница?суб меню тот же тип!
тип TMenuItem . Items:TMenuItem; !
Методы:
MenuItem . Add(item:TMenuItem); Добавляет.
MenuItem . Insert(index: Integer; item:TMenuItem); Вставка подраздела item в
выпадаещее меню раздела в позицию index.
С примером лом возится, не так уж это сложно как кажется.
Что-то типа:
menu - обробатываемое меню.
menu.items[5].items[2].insert(4, NewMenu);
end;
С уважением monah
e-mail : janal***@n*****.ru
сайт : http:\\janalex.narod.ru
--
Номер выпуска : 2753
Возраст листа : 192 (дней)
Количество подписчиков : 380
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/116566
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
Доброго времени суток всем!
Tuesday, March 30, 2004, 4:14:03 PM, you wrote:
Структура такая
test
у него есть субменю
n1231
N122341
и код соотвенно
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus;
type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
test: TMenuItem;
N1231: TMenuItem;
N122341: TMenuItem;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
test1:Tmenuitem;
begin
test1:=Tmenuitem.Create(test);
test1.Caption:='test1';
test.Add(test1);
end;
end.
добовляет в конец субменю test1.
программы,
Прив!
У компонента есть св-во items.insert(a:Tmenuitem);
Предворительно создай var a:TMenuItem;
a:=TmenuItem.create;
.........// заполняещь свойства onClick, caption и т.д.
в конце
a.free;
С уважением monah
e-mail : janal***@n*****.ru
сайт : http:\\janalex.narod.ru
--
Номер выпуска : 2740
Возраст листа : 191 (дней)
Количество подписчиков : 382
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/115564
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru