请问有没有办法,使panel控件,可以在窗口中粘接停靠功能吗? 请问有没有办法,使panel控件,可以在窗口中粘接停靠功能吗? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Panel的Align不行吗,如:Panel1.Align:=alTop; 什么意思?是Panel上可以停靠其他窗体吗?设置DockSite为True就可以了 我想应该是 xxmmmx(踢踏)说的意思吧。设置DockSite为True 没听明白,再说明白点吧,是不是像D7那样的样的停靠窗口哟,还是像Winnap的那种窗口呢? 我想实现在mdi父窗口中实现子窗口停靠,如现在有一个父窗口(mainwindow),子窗品form1,form2,form3,form4,子窗品的排列图如下:-----------------------------------------------------------| form1 | ||-------------- || form2 | form4 ||-------------- || form3 | ||----------------------------------------------------------上面的图意是,最外框是父窗口,form1,form2,form3,和form4的停靠位置如上图,请问如何实现呢? //---------------------------------------------------//停靠的实现procedure TFrmDraw.PanelDockUnDock(Sender: TObject; Client: TControl; NewTarget: TWinControl; var Allow: Boolean);begin PanelDock.Width:=5;end;procedure TFrmDraw.FormShow(Sender: TObject);begin frmTool:=TFrmTool.Create(Application); FrmTool.ManualDock(panelDock); //停靠end;procedure TFrmDraw.PanelDockDockOver(Sender: TObject; Source: TDragDockObject; X, Y: Integer; State: TDragState; var Accept: Boolean);begin accept:=(source.Control=FrmTool);end;procedure TFrmDraw.PanelDockDockDrop(Sender: TObject; Source: TDragDockObject; X, Y: Integer);begin source.Control.Width:=112; PanelDock.Width:=source.Control.Width;end;//还有设panel和frmtool的相关属性,这个不用说了吧。 制作播放器,如何实现填充trackbar控件中已播放的部分? TADOQuery过滤错误,高手指点一下! 如何定时执行硬盘上的EXE程序? dbgrid排序问题 ???会者不难,帮我看看这条SQL语句??? 如何利用编程执行Dos的批处理文件? 请帮我翻译DELPHI代码为CB代码,很简单的。 大家帮忙看一下以下代码的错误在哪里? 高手请进 :Win98下Dcom配置(我知道是老问题了,可是我还是没有配置成功) 如何从3000条记录中随机取10条不重复的记录????(access库) 怎么实现点击DataGrid弹出一个form?
设置DockSite为True
-----------------------------------------------------------
| form1 | |
|-------------- |
| form2 | form4 |
|-------------- |
| form3 | |
|----------------------------------------------------------
上面的图意是,最外框是父窗口,form1,form2,form3,和form4的停靠位置如上图,
请问如何实现呢?
//停靠的实现
procedure TFrmDraw.PanelDockUnDock(Sender: TObject; Client: TControl;
NewTarget: TWinControl; var Allow: Boolean);
begin
PanelDock.Width:=5;
end;procedure TFrmDraw.FormShow(Sender: TObject);
begin
frmTool:=TFrmTool.Create(Application);
FrmTool.ManualDock(panelDock); //停靠
end;procedure TFrmDraw.PanelDockDockOver(Sender: TObject; Source: TDragDockObject;
X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
accept:=(source.Control=FrmTool);
end;procedure TFrmDraw.PanelDockDockDrop(Sender: TObject; Source: TDragDockObject;
X, Y: Integer);
begin
source.Control.Width:=112;
PanelDock.Width:=source.Control.Width;
end;//还有设panel和frmtool的相关属性,这个不用说了吧。