How to remove a menu or submenu at runtime

Mirror

How to remove a menu or submenu at runtime (Views: 713)

Problem/Question/Abstract:

How to remove a menu or submenu at runtime

Answer:

Try these two procedures, i.e. RemoveMenu(form1.handle, 0) to remove the first menu:

procedure RemoveMenu(hwndMain: THandle; MenuIndex: Integer);
var
  h: HMenu;
begin
  h := GetMenu(hwndMain);
  if h > 0 then
    DeleteMenu(h, MenuIndex, MF_BYPOSITION);
end;

procedure RemoveSubmenu(hwndMain: THandle; MenuIndex, SubmenuIndex: Integer);
var
  h: HMenu;
begin
  h := GetMenu(hwndMain);
  if h > 0 then
    DeleteMenu(GetSubmenu(h, MenuIndex), SubmenuIndex, MF_BYPOSITION);
end;

<< Back to main page