网站导航免费论文 原创论文 论文搜索 原创论文 网学软件 学术大家 资料中心 会员中心 问题解答 原创论文 论文素材 设计下载 最新论文 下载排行 论文上传 在线投稿 联系我们
返回网学首页
网学联系
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 编程文档 > DELPHI > 正文
Delphi4的窗口融合技术
来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/12
下载{$ArticleTitle}原创论文样式

  Delphi4除了继承先前版本强大的面向对象的功能外,而且引入了十几项新技术、新特征。Docking 就是其中的一项,有人将Docking译为对接、入坞、结合等,也可以译为“窗口融合技术”。那么什么是窗口融合技术呢?窗口融合是一项先进的界面设计技术,体现了当今的发展趋势。Word97的浮动工具栏就是一种窗口融合技术,有时也称为Word97风格的浮动工具栏。下面针对目前比较流行的窗口与窗口的融合例程来进行:

  经过笔者一段时间的使用,发现Panel控件最适合作两个窗口融合的工具。由于这是最一般的情况,所以这里举一个具有代表性的例子详细说明。我们要达到的要求是:程序运行后,出现主窗口,按一个按钮,出现另一个窗口,拖动此窗口,与主窗口融合在一起,融合后主窗口的Caption变成两个窗口的Caption相加。在主窗口form1中放置两个Panel控件(panel1和panel2),一个Button控件(button1);另一个窗口form2为空白窗口。具体属性设置如下:

  panel1:

  align:alleft;

  docksite:true;

  usedockmanager:true;

  panel2:

  align:albottom;

  docksite:true;

  usemanager:true;

  form2:

  anchors:[aktop,akbottom,akleft,akright];

  dragmode:dmautomatic;

  dragkind:dkdock;

  设置button1的onclick事件,对应的代码如下:

  procedure TForm1.Button1Click(Sender: TObject);

  begin

  form2.Show;

  a:=form1.caption;

  b:=form2.caption;

  end;

  设置panel1和panel2的onundock事件,代码如下:

  procedure TForm1.Panel1UnDock(Sender: TObject; Client: TControl; NewTarget: TWinControl; var Allow: Boolean);

  begin

  form1.caption:=a;

  form1.Refresh;

  end;

  设置panel1和panel2的ondockdrop事件,代码如下:

  procedure TForm1.Panel1DockDrop(Sender:TObject; Source: TDragDockObject; X, Y: Integer);

  begin

  form1.Caption:=a+′,′+b;

  form1.Refresh;

  end;

  其中a,b为String型变量,用以保存窗口的最初标题,在form1的接口处声明。

网学推荐

免费论文

原创论文

浏览:
设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
湘ICP备09003080号