JaneSyrup Part5

>>707
このほうがスマートだと思ふ。

procedure TMainWnd.MenuViewMenuToggleVisibleClick(Sender: TObject);
var
i: Integer;
begin
for i := 0 to MainMenu.Items.Count-1 do
MainMenu.Items[i].Visible := False;
end;

>>メニュー消し厨
次はおまえが消える番です