给你个例子,你体会一下:
Form1中加Panel1,Panel1的属性DockSite设为True,
Form2的属性DragKind设为dkDock, DragMode设为dmAuromatic
在Form1的OnShow中加:
Form2.Show;
Form2.ManualDock(Panel1, nil, alclient);
form2.FormStyle:=fsStayOnTop;
这样FORM2就会停靠在Form1上.
Form1中加Panel1,Panel1的属性DockSite设为True,
Form2的属性DragKind设为dkDock, DragMode设为dmAuromatic
在Form1的OnShow中加:
Form2.Show;
Form2.ManualDock(Panel1, nil, alclient);
form2.FormStyle:=fsStayOnTop;
这样FORM2就会停靠在Form1上.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货