>************************************************** >*-- Formset: formset1 (c:\test\form1.scx) >*-- ParentClass: formset >*-- BaseClass: formset >*-- Time Stamp: 02/16/05 08:26:10 PM >* >DEFINE CLASS formset1 AS formset > > > DataSession = 1 > AutoRelease = .T. > WindowType = 1 > Name = "Formset1" > > > ADD OBJECT form1 AS form WITH ; > Top = 0, ; > Left = 0, ; > Height = 574, ; > Width = 821, ; > DoCreate = .T., ; > Caption = "Form1", ; > TitleBar = 0, ; > WindowState = 2, ; > Name = "Form1" > > > ADD OBJECT formset1.form1.command1 AS commandbutton WITH ; > Top = 120, ; > Left = 468, ; > Height = 27, ; > Width = 84, ; > Caption = "Command1", ; > Name = "Command1" > > > ADD OBJECT form2 AS form WITH ; > Top = 0, ; > Left = 0, ; > Height = 250, ; > Width = 403, ; > DoCreate = .T., ; > Caption = "Form2", ; > Visible = .F., ; > TitleBar = 0, ; > Name = "Form2" > > > PROCEDURE Load > > _screen.caption = "test" > ENDPROC > > > PROCEDURE command1.Click > thisformset.release > ENDPROC > > >ENDDEFINE >* >*-- EndDefine: formset1 >************************************************** >>