Delphi 技巧 - 使窗体部分可见

来源：岁月联盟 编辑：老鹰 时间：2010-06-08

为使窗体的部分内容可见，将窗体的有关部分放置在一个分离的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;

上一篇：Delphi简介
下一篇：用Delphi实现BP机、手机短讯 精华篇

图片内容

最近更新

随机推荐