ich habe mir ein Eingabefeld zusammengebaut:
Code: Alles auswählen
#include "Appevent.ch"
PROCEDURE Main
LOCAL nEvent, mp1, mp2, oXbp
SetColor("N/W")
CLS
oXbp := XbpSLE():new()
oXbp:bufferLength := 20
oxbp:editable:= .T.
oXbp:create( , , {100,200}, {100,30} )
oXbp:setData("TEST")
SetAppFocus( oxbp ) // SLE bekommt Eingabefokus
// Event loop = Programmsteuerung
nEvent := 0
DO WHILE nEvent <> xbeP_Close
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
Wie geht das?
Ist auch ein valid usw. wie bei @.. get möglich?
Ist ein :setdata() auf jeden Fall erforderlich? Habe ich in der Hilfe unter "Ein DataDialog zur Integration von Datenbanken" gefunden xbp:create():setdata()
mfg
Wolfgang