Iva*_*nov 5 delphi drag-and-drop
如何在没有可停靠窗体的缓慢冻结运动的情况下执行IDE方法或最终制作基本停靠方法？
当我在Delphi中搜索可停靠的表格并在程序员天堂上找到Zibadian的帖子时:
首先:Delphi IDE中的窗口不是MDI格式,而是SDI格式.
现在创建一个可停靠的窗口.
Form2将是可停靠的,Form1将是停靠它的地方.在Form1上放置一个控件(如TPanel)来为DockSite提供服务.确保为该控件将DockSite和UseDockManager属性设置为true.
对于Form2,将DragKind设置为dkDrop,将DragMode设置为dmAutomatic,将UseDockManager设置为true.
那是基本的码头功能.如果您运行程序,显示Form2并将该表单拖到停靠站点上,它应该停靠在该站点上.你甚至可以通过抓住你在IDE中看到的"标题"来取消它.
对我来说,该方法非常缓慢地移动可停靠的形式.然而,Zibadian的答案继续描述IDE如何做到:
IDE的dock方法稍微复杂一些,因为您没有看到docksite.我想,你需要编写一个Form1.OnDockOver或Form1.OnDockDrop来执行它.那些(那些)事件需要在适当的位置显示码头站点.