一个按钮控制panel的打开和关闭?

一个panel1的初始height是0,当我按一下button1时,panel1的height变为100,再按一下button1时,panel1的height又变为0.这语句怎么写?谢谢!

解决方案 »

  1.   

    不如用
    Panel1.visible := not Panel1.visible;
      

  2.   

    干吗这么麻烦，把panel1的visible属性在按下时设为true，他就显示，再次按按钮时让他变为false他就隐藏了。可先设个boolean变量，列：var i:boolean;并初始化为false;在bitton.click中加panel1.visible:=not(i);
      

  3.   

    至于你那要求：
    可以这样实现
    Panel1.Height := (Panel1.Height + 300) mod 200;
    要求你的Panel的初始高度为0或者100
      

  4.   

    用visible也行,但我就是想让"一个"按钮控制打开关闭,就是这个语句写不出来.
      

  5.   

    引用:把panel1的visible属性在按下时设为true，他就显示，再次按按钮时让他变为false他就隐藏了。
    就是这个,语句怎么写?谢谢
      

  6.   

    上面不是已经有了吗？还问啊！
    procedure Button1Click(sender: Tobject);
    begin
      Panel1.visible := not Panel1.visible;
    end;