您现在的位置: 华盟网 >> 编程 >> Delphi >> 正文

Delphi 技巧 - 使窗体部分可见

2011/6/5 作者:不详 来源: 华盟收集
导读 为使窗体的部分内容可见,将窗体的有关部分放置在一个分离的TPanel组件上,将这个面板组件的Visible属性设置为假,然后改变窗体的大小。   例如, 如将一…
 为使窗体的部分内容可见,将窗体的有关部分放置在一个分离的TPanel组件上,将这个面板组件的Visible属性设置为假,然后改变窗体的大小。

  例如, 如将一个辅助部分放在Panel1组件上,它在窗体的左部, 我们想让用户通过按Button1按钮来显示或隐藏它,代码如下:

  procedure TForm1.Button1Click(Sender:TObject);

  begin

  if Panel1.Visible then

  begin

  Form1.Width := Form1.Width- Panel1.Width;

  Button1.Caption := ‘显示’;

  end

  else

  begin

  Form1.Width := Form1.Width + Panel1.Width;

  Button1.Caption := '隐藏';

  end;

  Panel1.Visible := Not (Panel1.Visible);

  end;

                  微信群名称:华盟黑白之道二群   华盟-黑白之道⑦QQ群: 9430885

  • 上一篇编程:

  • 下一篇编程:
  • 网友评论
      验证码
     

    关注

    分享

    0

    讨论

    2

    猜你喜欢

    论坛最新贴