XProfan

Proc GetStatusText

    parámetros hndl&,part&
    Declarar buf#,texto$
    Dim buf#,512
    sendmessage(hndl&,1026,part&,buf#)
    texto$ = cadena$(buf#,0)
    Disponer buf#
    volver texto$

ENDPROC

cls
Declarar s#
Dim s#,12
Largo s#,0 = 50, 280, -1
var st& = Crear("StatusWindow",%Hwnd,"",3,s#)
disponer s#
settext st&,0,"Feld 1"
settext st&,1,"Feld 2"
settext st&,2,"Feld 3"
imprimir gettext$(st&,0) + ""
'si al folgende GetText$() simplemente en Klammern setzt, funktioniert lo correcto.
imprimir gettext$(st&,1)
imprimir gettext$(st&,2)
imprimir
imprimir "Nun con Sendmessage"
imprimir GetStatusText(st&,0)
imprimir GetStatusText(st&,1)
imprimir GetStatusText(st&,2)
waitinput