XProfan

Français

toujours wieder gefragt: qui laufende Zeitanzeige im Titel ou bien Status ou bien ou bien ...

Gefragt speziell wird eigentlich aussi pour einer Anzeige, qui sich indépendant vom Hauptprogramm selbständig aktualisiert, aussi si cela Hauptprogramm arbeitet.

cet Verhalten ist avec Präkompilern erzielbar, xpse bietet hierzu qui Pseudo-super "Thread" [...]

, um basichaften Umgang avec echten Threads herzubilden.

une simple Zeitanzeige im Hauptfenstertitel peux on somit so joli kurz formulieren:
Kompilieren Marque Séparation

 {$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

, bzw.
Kompilieren Marque Séparation

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

tandis que 1

    waitinput
    //... programm // pause

Wend

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

tandis que thread.is(thread&)

Wend

thread.close(thread&)
end

nProc meinThread

    Paramètres 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 programmiert wäre, weil qui Fil pas abgewürgt wird mais gewartet wird, jusqu'à cette korrekt finissez ist.

une autre Possibilité bietet qui SetTimer-Api.

là es dans XProfan qui Befehle KillTimer et SetTimer gibt, per ~ sur qui Apis montrer, z.B. ~SetTimer(... :
Kompilieren Marque Séparation

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

Tandis que 1

    WaitInput
    Cas %clé=2: BREAK

Endwhile

~killTimer(0,zeitAnzeige.timer&)
end

nProc zeitAnzeige.timerProc

    Paramètres wnd&,msg&,id&,tme&
    setText(%hWnd,date$(1)+" - "+time$(0)+" montre - "+time$(2)+" ["+str$(&getTickCount)+"]")

ENDPROC

qui weitere Varianten kennt, ici est un bon place pour - liegt dans Anwendungstemplates et Codesnippets.

Bedingungen sommes ne...aucune FastMode (pour beste intégration dans normale Anwendungen) et aucun unsichere Anwendung de ProcAddr, alors rien avec absehbarer Absturzgefahr.

qui alors weitere Beispiele hat ou bien nécessaire, s'il te plaît posten.

Beispielexen im Anhang.