关于delphi实现像IE中查看菜单中可以控制IE有无状态栏。

Question

初学delphi.请问怎么编程或操作实现在察看菜单中的点一下状态栏或者工具栏就可以选择是否需要工具栏或者状态栏？

Answer 1

设一个全局变量标志状态栏是否显示
var
  StatusShow: Boolean=true; //赋初值为真...//在你需要处理的事件中加入如下代码
begin
 if StatusShow then begin
  StatusBar1.Visible:=false;
  StatusShow:=false;
 end else begin
  StatusBar1.Visible:=true;
  StatusShow:=true;
 end;
end;