メニュー消しまだぁ〜

このエントリーをはてなブックマークに追加
13 ：名無しさん＠お腹いっぱい。：
//Main.pas
//020820 01:26:33

614
procedure MenuViewMenuToggleVisible;

878
MENU_ID_TOGGLE = 12;

1089
MENU_ID_TOGGLE: MenuViewMenuToggleVisible;

1298
AppendMenu(hSysMenu, MF_STRING, MENU_ID_TOGGLE, '&Menu View Menu Toggle Visible');

8774
procedure TMainWnd.MenuViewMenuToggleVisible;
var
　i: Integer;
　b: boolean;
begin
　b := MainMenu.Items[0].Visible;
　if b then
　　for i := 0 to MainMenu.Items.Count-1 do
　　　MainMenu.Items[i].Visible := False
　else
　　for i := 0 to MainMenu.Items.Count-1 do
　　　MainMenu.Items[i].Visible := True;
end;