XProfan

Español

Immer otra vez gefragt: El laufende Zeitanzeige en el Titel oder Status oder oder ...

Gefragt específicamente se eigentlich auch después de uno Anzeige, que unabhängig vom Hauptprogramm selbständig aktualisiert, auch si el Hauptprogramm arbeitet.

Dieses Comportamiento es con Präkompilern erzielbar, xpse bietet hierzu el Pseudo-Klasse "Thread" [...]

, en basichaften Umgang con echten Hilos herzubilden.

Un einfache Zeitanzeige en el Hauptfenstertitel puede ser somit así schön kurz formulieren:
Kompilieren Marca Separación

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

, o.
Kompilieren Marca Separación

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

mientras que 1

    waitinput
    //... programm // romper

wend

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

mientras que thread.is(thread&)

wend

thread.close(thread&)
end

nProc meinThread

    Parámetros thread&,dataLong&,dataString$

    Sinestar encargado thread.mensaje(thread&)=wm_close

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

    wend

    volver 0

endProc

sauberer programmiert wäre, porque el Hilo no abgewürgt se pero gewartet se, a dieser korrekt final es.

Otro Möglichkeit bietet el SetTimer-Api.

Como lo en XProfan el Befehle KillTimer y SetTimer son, por ~ en el Apis zeigen, z.B. ~SetTimer(... :
Kompilieren Marca Separación

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

Mientras que 1

    WaitInput
    Case %key=2: BREAK

EndWhile

~killTimer(0,zeitAnzeige.timer&)
end

nProc zeitAnzeige.timerProc

    Parámetros wnd&,msg&,id&,tme&
    setText(%hWnd,date$(1)+" - "+time$(0)+" Uhr - "+time$(2)+" ["+str$(&getTickCount)+"]")

ENDPROC

Wer weitere Varianten sabe, hier es una guter Platz dafür - liegt en Anwendungstemplates y Codesnippets.

Bedingungen son kein FastMode (para beste Integration en normale Anwendungen) y no unsichere Anwendung de ProcAddr, also nichts con absehbarer Absturzgefahr.

Wer also weitere Beispiele ha oder benötigt, Por favor, puesto.

Beispielexen en el Anhang.