De las mejores características de VFP 9
Public oform1, oForm2
oform1=Newobject("Form1")
oform1.Show
Return
Define Class Form1
As Form
DoCreate = .T.
Caption
=
"Formularios Anclables"
Dockable
= 1
Name
=
"Form1"
Add Object
command1
As CommandButton
;
With Top
= 73, ;
Left
= 103, ;
Height
= 27, ;
Width
= 140, ;
Caption
=
"Mostrar From anclado",
;
Name
=
"Command1"
Procedure
command1.Click
oForm2 =
Newobject([Form2])
oForm2.Show()
oForm2.Dock(4,
Thisform)
EndProc
EndDefine
Define Class Form2
As Form
DoCreate = .T.
Caption
=
"Otro formulario"
Dockable
= 1
Name
=
"Form2"
Add Object
edit1
As EditBox With
;
Height
= 152, ;
Left
= 136, ;
Top
= 29, ;
Width
= 155, ;
Name
=
"Edit1"
EndDefine
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
