Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
VFP forms docking???
Message
From
27/02/2006 14:46:58
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01099527
Message ID:
01099601
Views:
13
>>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.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform