XProfan

Declare A&, B&, C&
DEF SetWindowLong(3) !USER32,SetWindowLongA
DEF GetWindowLong(2) !USER32,GetWindowLongA
Cls
Print Taste drücken

Proc CreateStaticEx

    Parameters t$,x%,y%,x1%,y1%,border%,alignment%
    Declare h&,xstyle%
    Let h&=CreateText(%hwnd,t$,0,0,0,0)
    let xstyle%=1
    Case border%:Let xstyle%=$200
    SetWindowLong(h&,-20,xstyle%)
    SetWindowLong(h&,-16,Or(GetWindowLong(h&,-16),alignment%))
    SetWindowPos h&=x%,y%-x1%,y1%
    Return h&

EndProc

A& = CreateStaticEx A,10,30,200,100,1,0	Fehlermeldung: Keine Zahl: CreateStaticEx
B& = CreateStaticEx B,10,130,200,100,1,0	Fehlermeldung: Keine Zahl: CreateStaticEx
C& = CreateStaticEx C,10,230,200,100,1,0	Fehlermeldung: Keine Zahl: CreateStaticEx
WaitInput
End

CreateStaticEx A,10,30,200,100,1,0
A& = &(0)e>