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;