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

Как при нажатии на кнопку добавить в MainMenu пункты из PopupMenu   Найти похожие ветки 

← →
LinOS ©   (2003-09-11 12:14) [0]

Здравствуйте мастера.
Подскажите, как при нажатии на кнопку добавить в MainMenu пункты из PopupMenu

---

← →
MikeZ ©   (2003-09-11 12:50) [1]

Если переносить, то так:
procedure TForm1.Button1Click(Sender: TObject);
var
I : Integer;
Item : TMenuItem;
begin
For I := 0 to PopupMenu1.Items.Count - 1 do
begin
Item := PopupMenu1.Items.Items[0];
PopupMenu1.Items.Delete(0);
Tools1.Add(Item); //Tools1 - это тот итем, в который добавляются пункты из PopupMenu1
end;
end;

Если копировать, то так:
procedure TForm1.Button2Click(Sender: TObject);
var
i : Integer;
Item : TMenuItem;
begin
For I := 0 to PopupMenu1.Items.Count - 1 do
begin
Item := TMenuItem.Create(Self);
Item.Caption := PopupMenu1.Items.Items[I].Caption;
Item.Hint := PopupMenu1.Items.Items[I].Hint;
//....
Item.OnClick := PopupMenu1.Items.Items[I].OnClick;
Tools1.Add(Item);
end;
end;

---

← →
LinOS ©   (2003-09-11 12:50) [2]

Есть кто-нибудь? Или никто не знает как это осуществить?

---

← →
LinOS ©   (2003-09-11 12:54) [3]

Спасибо, но надо еще создать итем в который добавляются итемы из Popup.

---

← →
MikeZ ©   (2003-09-11 13:00) [4]

Все создается заранее или как в части 2.

---

← →
LinOS ©   (2003-09-11 13:08) [5]

Все, спасибо. Хороший форум :)

---

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

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



Память: 0.46 MB
Время: 0.015 c