mir fällt keine bessere Überschrift ein, wenn doch, dann ändere ich sie nachträglich um
Code: Alles auswählen
oBez := SlePic():new(oRahmen,,{120,oRahmen:currentSize()[2]-80},{320,20})
oBez:bufferLength := 50
oBez:tabStop := .T.
oBez:keyboard := {|nKey, uNil, objekt| IF(nKey == xbeK_RETURN, pruefoBez(objekt),NIL)} // hier wird nur die RETURN Taste abgefangen
oBez:setInputFocus := {|| oSleHilfe:setcaption("Bezeichnung von max. 50 Zeichen Länge eingeben")}
oBez:validate := {|objekt| ValidateSLE(objekt)}
oBez:dataLink := {|x| IIf( x==NIL, Trim(oBuchKto:bez), oBuchKto:bez := x)}
oBez:create():disable()
FUNCTION ValidateSLE(objekt) <-- warum steht da SLEPic als Objekt drin?
LOCAL lErfolg := .T.
MEMVAR oMessage
IF Empty(objekt:editBuffer)
oMessage:pflichteingabe()
lErfolg := .F.
ENDIF
RETURN lErfolg