<% dim ModuleName,InfoID,ChannelShortName,CorrelativeArticle,InstallDir,ChannelDir,Keyword,PageTitle,ArticleIntro,Articlecontent Keyword=stripHTML("Delphi ,技巧") PageTitle=stripHTML("Delphi 技巧 - 使窗体部分可见") ArticleIntro=stripHTML("") Articlecontent=stripHTML("为使窗体的部分内容可见,将窗体的有关部分放置在一个分离的TPanel组件上,将这个面板组件的Visible属性设置为假,然后改变窗体的大小。   例如, 如将一…") ModuleName = stripHTML("programme") InfoID = stripHTML("110973") ChannelShortName=stripHTML("编程") InstallDir=stripHTML("http://www.77169.com/") ChannelDir=stripHTML("programme") %> Delphi 技巧 - 使窗体部分可见 - 华盟网 - http://www.77169.com
您现在的位置: 华盟网 >> 编程 >> Delphi >> 正文

Delphi 技巧 - 使窗体部分可见

2011/6/5 作者:不详 来源: 华盟收集
导读 <% if len(ArticleIntro)<3 then Response.Write Articlecontent 'Response.Write "Articlecontent" else Response.Write ArticleIntro 'Response.Write "ArticleIntro" end if %>
 为使窗体的部分内容可见,将窗体的有关部分放置在一个分离的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;



  • 上一篇编程:

  • 下一篇编程: