XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Statusbar im Dialogfenster erzeugen
Def @Createstatuswindow(4) ! comctl32,CreateStatusWindow
Declare Dialog&,Status&,Text$
Windowstyle 31
Windowtitle Statusbar Test
Window 0,0-640,440
Dialog& = @Createdialog(%Hwnd,Dialog,10,10,300,300)
Let Text$=Statusbar im Dialog
Status& = @Createstatuswindow($50000000,@Addr(Text$),Dialog&,1000)

While 0=0

    Waitinput

    If @And(@Getactivewindow()=Dialog&,%Menuitem=-2)

        @Destroywindow(Dialog&)

    Endif

Wend