Hello,
I have a TMSFMXScrollMenu with a certain item.
I need to add submenu to it at runtime.
I don't know how to find it. There is an Items.FindItemID() but the ScrollItem doesn't have id property only tag property.
Thank you in advance!
Hello,
Hi,
Hi Pieter ,
Hi,
function TForm1.FindItemByTag(ATag: Integer): TTMSFMXScrollItem;
var
I: Integer;
it: TTMSFMXScrollItem;
begin
Result := nil;
for I := 0 to TMSFMXScrollMenu1.Items.Count - 1 do
begin
it := TMSFMXScrollMenu1.Items[I];
if it.Tag = ATag then
begin
Result := it;
Break;
end;
end;
end;
Pieter Scheldeman2017-10-23 11:16:27
Thank you very much! It works.