使窗體部分可見

　　 　　為使窗體的部分內容可見，將窗體的有關部分放置在一個分離的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;