Delphi 技巧 - 使窗体部分可见

  为使窗体的部分内容可见,将窗体的有关部分放置在一个分离的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;   

 

Copyright 2000-2015 Gogusoft Software Co.,Ltd
 
 
长春市勾股软件有限责任公司
销售电话:043188833276(长春) 0755-32978958 (深圳)
电子信箱:销售sales@gogusoft.com 技术 tech@gogusoft.com 招聘 job@gogusoft.com
公司地址:长春市绿园区长白公路7777号 邮编:130012