【vfp开源代码栏目提醒】:网学会员在vfp开源代码频道为大家收集整理了dockingforms.PRG提供大家参考,希望对大家有所帮助!
PUBLIC DockForm1,DockForm2
DockForm1=CREATEOBJECT("DockForm1")
DockForm1.Visible = .T.
DockForm2=CREATEOBJECT("DockForm2")
DockForm2.Visible = .T.
DEFINE CLASS DockForm1 as Form
Top = 50
Left = 50
Caption = "DockForm1"
Dockable = 1 &&可停靠
Name = "form1"
ADD OBJECT Command1 as CommandButton WITH ;
Top = 100,;
Left = 80,;
Width = 230,;
Height =25,;
Caption = "与DockForm2表单建立/解除标签式停靠"
PROCEDURE Command1.Click
DO CASE
CASE Thisform.DockPosition = -1 &&没有停靠
Thisform.Dock(4,DockForm2) &&进行停靠
CASE Thisform.DockPosition = 4 &&已建立标签式停靠
Thisform.Dock(-1) &&取消停靠
ENDCASE
ENDPROC
ENDDEFINE
DEFINE CLASS DockForm2 as Form
Top = 350
Left = 350
Caption = "DockForm2"
Dockable = 1
Name = "form1"
ENDDEFINE