Delphi 技巧 - 使窗体部分可见
新客网 XKER.COM 2007-02-01 来源： 收藏本文
为使窗体的部分内容可见，将窗体的有关部分放置在一个分离的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;
例如, 如将一个辅助部分放在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;
上一篇：VB 技巧 - 文件操作的技巧 下一篇：用VB开发与机器环境无关的程序
最新相关文章发表评论
评论内容：不能超过250字，需审核后才会公布，请自觉遵守互联网相关政策法规。
阅读排行
随机推荐
实用信息推荐