Delphi 技巧 - 使窗体部分可见
添加时间: 2006-2-16 3:56:42 作者: VB教程 阅读次数:54 来源: http://www.d9soft.com
例如, 如将一个辅助部分放在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 技巧 - 文件操作的技巧
相关文章: