>>x=Thisform
>>
>>Holds a object reference for that object but how I can make a seperate copy of object...something like..
>>
>>x=Copyof(Thisform)
>
>
>
>You need a Form Class and an Instance to use.
>
>You can Download SaveAs in File Section to save the Form into class VCX.
>
>What you can do:
>
>Local myForm
>
>myForm=CreateObject("FCustomer")
>myForm.Show
>
>Or...
>
>IF PEMSTATUS(_SCREEN, "FCustomer1", 5)
> _SCREEN.ADDOBJECT("FCustomer1", "FCustomer")
>ENDIF
>
>_SCREEN.FCustomer1.Show
>
>
>Notes:
>
>if you change the form into class, there will NO DE.
>You need to set all Open Table as needed!
>
>* Form.Load
>IF !Use("Customer")
> Use Customer AGAIN in 0 Order Tag Cust_No Shared
>ENDIF
>=CursorSetProp("Buffer", 3, "Customer")
>
>IF !Use("Orders")
> Use Orders AGAIN in 0 Order Tag Ord_No Shared
> Select Customer
> Set Relation To Cust_No Into Orders Additive
>ENDIF
>=CursorSetProp("Buffer", 3, "Orders")
>
>* etc.
>
>
>
>But if you just want to Copy the Form into another Formset..
>I don't think you can copy all with easy..
>I will type {CTRL+A} to select all Objects in Form
>{CTRL+C} to Copy, but the form properties and new procedure... need to copy manually! ~_~
Thnks for the reply..
Actually its not just related with forms but with any object...
is there any easier way to do it ??? i.e. which can just make a copy of the object...(in run time..)
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only