请问在不用任何第三方控件的情况下....

Question

请问在不用任何第三方控件的情况下怎么样将一个窗体在设计时就能停靠在主窗体上
请给出源代码。delphi　自带的示例源代码是在运行时由用户的拖拽来实现窗体的停靠的
现在我的要求是在设计师或者说是程序启动运行后能自动让窗体停靠在主窗体的指定位置
我用过 express bar 但这套控件好像有 bug 而且不能在 MDI　程序中很好的控制窗体的停靠！
项目比较急，请高手帮忙！
谢谢！

Answer 1

express bar是五星级的控件，还是好好学习一下吧

Answer 2

呵呵，不会说的是实现WINAMP那样的磁性窗体功能吧？？？
这个容易大富翁离线上多得跟米一样。。

Answer 3

不用在设计时，你只要在程序初始化的时候把它停靠在上面就行了。你是说得Dock功能吗？

Answer 4

pazee(耙子) 但是这样的话必须调用窗体的 show方法
会造成屏幕的闪动，能避免吗？

Answer 5

你是不是说这个意思 xxx.ManualDock(xxxx);
 xxx.Show;  // 是这个Show 吗？我一直这么些的，没感觉什么闪烁，如果你觉得太明显，
你尝试在OnCreate里面都加上  Self.DoubleBuffered:= true; 看看这个效果会不会好些

Answer 6

给你一段代码：
  例：把Form2停靠在Form1的Panel1上，且还可以拖出或拖进到Panel1上。
Form2 的form2.DragMode := dmAutomatic;
代码很简单：
  form2.Dock(Form1.Panel1,Panel1.ClientRect);
  form2.Show;
  panel1.DockSite := True;
  form2.DragKind := dkdock;
搞定了。