| |
| |
Programmatisch eine Methode bzgl. Grid erstellen ??- #15828 in section [733899] |
| Sec: |
(51) MS-Visual FoxPro 9.0 |
| Von: |
Hans-Peter Grözinger |
| An: |
Richard Schwab |
| Am/Um: |
09.05.2012 14:55:22 gelesen |
Hallo Richard !
| |
Foxpro hängst sich aber jedesmal auf....
DO FORM prob
PUBLIC oHandler
oHandler=NEWOBJECT("myhandler")
*DO (_browser)
BINDEVENT(prob,"Resize",oHandler,"myresize")
DEFINE CLASS myhandler AS Session
PROCEDURE myresize
prob.left = 10
RETURN
ENDDEFINE
READ events
Was mache ich falsch?
|
So gehts
PUBLIC loHandler
loHandler = NEWOBJECT( "myhandler" )
loForm = CREATEOBJECT( "myform" )
loForm.SHOW()
DEFINE CLASS myhandler AS SESSION
PROCEDURE myresize
_SCREEN.ACTIVEFORM.HEIGHT = _SCREEN.ACTIVEFORM.LEFT + 200
RETURN
ENDPROC
ENDDEFINE
DEFINE CLASS myform AS FORM
*-- Modales Formular
WINDOWTYPE = 1
PROCEDURE INIT
BINDEVENT( THIS, "Resize", loHandler, "myresize" )
ENDPROC
ENDDEFINE
--
Hans-Peter Grözinger
|
|
|
|
