Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
VFP forms docking???
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Divers
Thread ID:
01099527
Message ID:
01099601
Vues:
14
>>what do you mean, I thought all vfp9 forms are dockable.
>
>Only Top-Level forms can be dockable.

Disagree, all forms are dockable:
PUBLIC oform1, oForm2

oform1=NEWOBJECT("Test")
oform1.Show
RETURN


**************************************************
*-- Form:         form1 (d:\all_zapl\test.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   02/27/06 09:40:06 PM
*
#INCLUDE "d:\all_zapl\include\aladin.h"
*
DEFINE CLASS Test AS form


    DoCreate = .T.
    Caption = "Test main"
    Dockable = 1
    Name = "Test"


    ADD OBJECT command1 AS commandbutton WITH ;
        Top = 73, ;
        Left = 213, ;
        Height = 27, ;
        Width = 84, ;
        Caption = "Press me :-)", ;
        Name = "Command1"


    PROCEDURE command1.Click
               oForm2 = NEWOBJECT([Test1])
               oForm2.Show()
               oForm2.Dock(4, thisform)
    ENDPROC


ENDDEFINE
*
*-- EndDefine: form1
**************************************************




    **************************************************
*-- Form:         form1 (d:\all_zapl\test1.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   02/27/06 09:41:07 PM
*
*
DEFINE CLASS Test1 AS form


    DoCreate = .T.
    Caption = "Second test"
    Dockable = 1
    Name = "Test1"


    ADD OBJECT edit1 AS editbox WITH ;
        Height = 152, ;
        Left = 136, ;
        Top = 29, ;
        Width = 155, ;
        Name = "Edit1"


ENDDEFINE
*
*-- EndDefine: form1
**************************************************
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform