General information
Category:
Forms & Form designer
Hi Vlad,
as you can see in the class code below, my properties are set as you recommend.
when i run it with do form it comes up without titlebar.
the problem occurs only when i do:
oMyForm=newobject('eform_otb','ernst.vcx')
oMyForm.show()
It neither works in vfp7 nore in vfp6 SP5
**************************************************
*-- Class: eform_otb (c:\wl\klassen\ernst.vcx)
*-- ParentClass: form
*-- BaseClass: form
*-- Zeitstempel: 02/22/02 09:45:12 AM
*
#INCLUDE "c:\vfp7\foxpro.h"
*
DEFINE CLASS eform_otb AS form
Height = 480
Width = 830
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Picture = "..\icons&bitmaps\rahmenform3.jpg"
BorderStyle = 0
Caption = ""
ControlBox = .F.
Movable = .T.
TitleBar = 0
Name = "eform_otb"
ADD OBJECT shape1 AS shape WITH ;
Top = 0, ;
Left = 607, ;
Height = 21, ;
Width = 17, ;
BackStyle = 0, ;
BorderStyle = 0, ;
Name = "Shape1"
ADD OBJECT shape2 AS shape WITH ;
Top = 2, ;
Left = 583, ;
Height = 21, ;
Width = 17, ;
BackStyle = 0, ;
BorderStyle = 0, ;
Name = "Shape2"
PROCEDURE Activate
thisform.windowstate=0
ENDPROC
PROCEDURE Refresh
this.width=640
ENDPROC
PROCEDURE Init
Declare ReleaseCapture in "user32"
Declare long SendMessage in "user32" long hwnd, long wMsg, long wParam, long lParam
this.width=640
this.titlebar=0
ENDPROC
PROCEDURE MouseDown
LPARAMETERS nButton, nShift, nXCoord, nYCoord
if nButton=1
ReleaseCapture()
SendMessage(this.hwnd,0x112,0xF012,0x0)
endif
ENDPROC
PROCEDURE shape1.Click
thisform.release()
ENDPROC
PROCEDURE shape2.Click
thisform.windowstate=1
ENDPROC
ENDDEFINE
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only