>>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..)
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement