Procedure TForml MenuBarClick(Sender: Tobject gin If (MenuBar. Checked) Ther Begin Menubar. checked:= False;∥使 Menubar菜单项设置为无标记 Status bar 1. Visible:= False;//使 Statuesbarl组件隐藏 Else Menubar. Checked:=True;//使 Menubar菜单项设置为有标记 Status 1. Visible:=True;//使 StatuesBarl组件显示 End End ccccccMccccccccccc:cMMHProcedure TForm1.MenuBarClick (Sender : Tobject); Begin If (MenuBar.Checked) Then Begin MenuBar.Checked := False ; //使 MenuBar 菜单项设置为无标记 StatusBar1.Visible := False ; //使 StatuesBar1 组件隐藏 End Else Begin MenuBar.Checked := True ; //使 MenuBar 菜单项设置为有标记 StatusBar1.Visible := True ; //使 StatuesBar1 组件显示 End; End;