帮忙一下,谁知道象WINNAP播放器那样拖出来的。。。。。(0分)

  • 主题发起人 主题发起人 寒潭梦影
  • 开始时间 开始时间

寒潭梦影

Unregistered / Unconfirmed
GUEST, unregistred user!
帮忙一下,谁知道象WINNAP播放器那样拖出来的部分到一定的距离就象有磁力般
被吸附在一起 怎么做呀????
 
yumenzhong!!!!!!!!!!!!
 
Delphi引入了一些新特征。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的接口处声明。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部