TGMenu

type TGMenu = object(TGMenuModel)

  function new;

  procedure append();

  procedure append_item();

  procedure append_section();

  procedure append_submenu();

  procedure freeze;

  procedure insert();

  procedure insert_item();

  procedure insert_section();

  procedure insert_submenu();

  procedure prepend();

  procedure prepend_item();

  procedure prepend_section();

  procedure prepend_submenu();

  procedure remove();

  procedure remove_all;

end;

TGMenu

TGMenuModel

TGObject