Форум: "Основная";
Текущий архив: 2003.09.22;
Скачать: [xml.tar.bz2];
ВнизКак при нажатии на кнопку добавить в 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 вся ветка
Форум: "Основная";
Текущий архив: 2003.09.22;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.012 c