Information générale
Catégorie:
Codage, syntaxe et commandes
Ok this is all working now except for the desktop .t. part. I would like this form to appear outside the vfp window and i keep getting an error saying "property desktop is read-only"
What am i missing?
k
LOCAL oFrm
oFrm= createOBJECT("Rooms")
oFrm.Top = 24
oFrm.Left =400
oFrm.Height = 373
oFrm.Width = 500
oFrm.desktop = .t.
oFrm.edit1.value = filetostr('sample.TXT')
oFrm.Show(1)
************************************
DEFINE CLASS classrooms AS Form
ADD OBJECT Edit1 AS EditBox WITH ;
FontSize = 7.5, ;
Height= 409, ;
Left= 2, ;
fontname='Lucida Console', ;
ReadOnly= .t., ;
TabIndex= 2, ;
Top= 2, ;
Width= 489, ;
Value= ""
ENDDEFINE
Public Event MouseWheel As MouseWheelEventHandler
PROCEDURE Object.MouseWheel
LPARAMETERS nDirection, nShift, nXCoord, nYCoord
PROCEDURE edit1.MouseWheel
LPARAMETERS nDirection, nShift, nXCoord, nYCoord
* Set focus to this control
If Type("thisform.ActiveControl") # "O" or thisform.ActiveControl < > this
this.SetFocus
EndIf
ENDPROC
oFrm.hide(1)
Précédent
Suivant
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