Скачать: CL | DM;

И снова 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 ©

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

---

← →
AndrewVolkov ©   (2003-07-07 18:46) [8]

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

---

← →
AndrewVolkov ©   (2003-07-07 18:52) [9]

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

---

← →
AndrewVolkov ©   (2003-07-07 18:58) [10]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.011 c