程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 使窗體部分可見

使窗體部分可見

編輯: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;  
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved