XProfan

English

over ands over again demand: The ongoing Zeitanzeige in the cover or status or or ...

demand Specifically becomes really too after a display, which independent of Hauptprogramm self-employed updated, even if the Hauptprogramm operates.

this behaviour is with Präkompilern erzielbar, xpse bid to The pseudo-class "Thread" [...]

, circa basichaften Use with real Threads herzubilden.

an simple Zeitanzeige in the Hauptfenstertitel can accordingly so beautiful short formulieren:
Compile Mark Separation

 {$cleq}
cls
var thread&=thread.start(procaddr(meinThread),0,"")

while 1

    waitinput
    //... programm // break

wend

thread.close(thread&)
end

nProc meinThread

    Parameters thread&,dataLong&,dataString$

    WhileNot thread.message(thread&)=wm_close

        setText(%hWnd,"Mein FensterTitel - ["+time$(0)+"."+substr$(time$(1),1,".")+"]")
        sleep(1000)

    wend

    return 0

endProc

, or.
Compile Mark Separation

 {$cleq}
cls
var thread&=thread.start(procaddr(meinThread),0,"")

while 1

    waitinput
    //... Program // break

wend

showWindow(%hWnd,0)
thread.stop(thread&)

while thread.is(thread&)

wend

thread.close(thread&)
end

nProc meinThread

    Parameters thread&,dataLong&,dataString$

    WhileNot thread.message(thread&)=wm_close

        setText(%hWnd,"Mein FensterTitel - ["+time$(0)+"."+substr$(time$(1),1,".")+"]")
        sleep(1000)

    wend

    return 0

endProc

sauberer program would, because the Thread not stalls becomes separate waited becomes, To this correctly exits is.

another Possibility bid The SetTimer-Api.

there it in XProfan The command KillTimer and SetTimer gives, by ~ on The Apis show, z.B. ~SetTimer(... :
Compile Mark Separation

 {$cleq}
Window Style 520
cls
var zeitAnzeige.timer&=~setTimer(0,0,1000,procAddr(zeitAnzeige.timerProc))

While 1

    WaitInput
    Case %key=2: BREAK

EndWhile

~killTimer(0,zeitAnzeige.timer&)
end

nProc zeitAnzeige.timerProc

    Parameters wnd&,msg&,id&,tme&
    setText(%hWnd,date$(1)+" - "+time$(0)+" watch - "+time$(2)+" ["+st$(&getTickCount)+"]")

ENDPROC

who further mutants knows, here's a good Space for - lying in Application-Templates and Codesnippets.

terms are no FastMode (for best Integration in normal Applications) and no unsure application of ProcAddr, means nothing with absehbarer Absturzgefahr.

who means further Examples has or needed, Please post.

Beispielexen in the attachment.