【vfp开源代码栏目提醒】:本文主要为网学会员提供dockingforms1.PRG,希望对需要dockingforms1.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
Thisform.Dock(4,DockForm2) &&进行停靠
DIMENSION aArray[1]
IF Thisform.GetDockState("aArray")=.T.
=MESSAGEBOX("停靠表单:"+aArray[1,1]+CHR(13)+;
"停靠状态:"+STR(aArray[1,2])+CHR(13)+;
"停靠位置:"+STR(aArray[1,3])+CHR(13)+;
"目标表单:"+IIF(VARTYPE(aArray[1,4])="O",aArray[1,4].Name,aArray[1,4])+CHR(13)+;
"当前表单Name属性:"+IIF(VARTYPE(aArray[1,5])="O",aArray[1,5].Name,"未知")+CHR(13)+;
"目标表单Name属性:"+IIF(VARTYPE(aArray[1,6])="O",aArray[1,6].Name,"未知"))
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS DockForm2 as Form
Top = 350
Left = 350
Caption = "DockForm2"
Dockable = 1
Name = "form2"
ENDDEFINE