И снова PopupMenu ;-((

← →
AndrewVolkov © (2003-07-07 18:09) [0]

Покопался в нете, нигде не могу найти, как в рантайме добавить в ПопапМеню - к какому-нибудь итему Субменю.

Если кто в курсе, подскажите...

← →
Song © (2003-07-07 18:18) [1]

Menu:=TPopupMenu.Create(Self);

SubItem:=TMenuItem.Create(Self);
SubItem.Caption:=...;

Item:=TMenuItem.Create(Self);
Item.Caption:=...";
Item.Add(SubItem);

Menu.Add(Item);

← →
Spawn © (2003-07-07 18:18) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
MenuItem:TMenuItem;
begin
MenuItem:=TMenuItem.Create(Form1);
MenuItem.Caption:="Test";
PopUpMenu1.Items[0].Add(MenuItem);//Разумеется Items[0] должен существовать
end;

← →
mrcat © (2003-07-07 18:24) [3]

>AndrewVolkov © (07.07.03 18:09)

NewSubMenu ?

← →
AndrewVolkov © (2003-07-07 18:33) [4]

то Spawn
так я уже пробовал - все проходит, но ниче не появляется...
то Сонг - Menu.Add говорит что у TPopupMenu нет свойства Add

Var pmItemList:TMenuItem; pmItemList := TMenuItem.Create(Self); pmItemList.Caption := fmList.dbGrid.Columns[fmList.dbGrid.SelectedIndex].Title.Caption+ " "+fmList.dbGrid.SelectedField.Text; pmItemList.Checked:=True; pmItemList.OnClick:=aChoiceExecute; PMPeople.Items.Add(pmItemList);

Просто я добавить могу. А если я хочу к тому что я добавил: pmItemList - добавить СубМеню. Вот с этим трабла...

← →
Song © (2003-07-07 18:39) [5]

>>то Сонг - Menu.Add говорит что у TPopupMenu нет свойства Add
Ну само собой, писал в браузере, ошибся.
Метод Add есть у TPopupMenu.Items

← →
Song © (2003-07-07 18:40) [6]

Вот эту строчку

Menu.Add(Item);

замени на Menu.Items.Add(Item)

← →
Spawn © (2003-07-07 18:42) [7]

AndrewVolkov ©

У меня все прекрасно работало

Спасибо - вроде чето пошло.
Блин не могли по человечески сделать...В жизнь не догадаешься

то Spawn
я не спорю - посмотрю еще раз, но тогда у меня ниче не появлялось.

то Spawn
да, спасибо - незнаю че было - но вариант действительно рабочий.
Странно если бы он не был рабочим, так как с вариантом Song они в принципе идентичны

И снова PopupMenu ;-(( Найти похожие ветки