NewMenu function

TMainMenu NewMenu(
  1. TComponent Owner,
  2. String AName,
  3. List<TMenuItem> Items
)

Implementation

TMainMenu NewMenu(TComponent Owner, String AName, List<TMenuItem> Items)
{
  var Result = TMainMenu(Owner);
  Result.Name = AName;
  InitMenuItems(Result, Items);
  return Result;
}