Hi,
Unfortunately this functionality is not included, but you can easily write your own loop:
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