Probably a no-brainer for most of you, but just as an info, if you should ever want to do such a thing and are not sure how:
The following code would take care of mergint the popupitems of a TPopUpMenu PMXLIF into the popup context of the TTMSFMXMemo MemoXLF:
procedure TFrXLFTranslate.FormCreate(Sender: TObject);
var
aMI: TMenuItem;
I: Integer;
procedure CopyItem(SItem, TItem: TMenuItem);
begin
TItem.Text := SItem.Text;
TItem.OnClick := SItem.OnClick;
// whatever else you want to copy
end;
begin
for I := 0 to PMXLIF.ItemsCount - 1 do
begin
aMI := TMenuItem.Create(MemoXLF.MemoContext);
CopyItem(PMXLIF.Items[I], aMI);
MemoXLF.MemoContext.AddObject(aMI);
end;
end;
For me it works so far - please let me know here, if you see a general issue with that approach or if there should be a better way.