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