XProfan

Kla isse NT kompatibel. Ich würde gerne mal deine Thread.Do sehen...

Salve.

Hi,
Ich verwende nur 1 thread zum Anzeigen der laufenden Zeit in der Statusbar:
Kompilieren Markieren Separieren

proc thread.do

    parameters n&

    if (n&=1)

        declare bereichzeit#
        dim bereichzeit#,25
        string bereichzeit#,0=ZEIT()
        sendmessagea(Statuszeile_H&,$401,3,bereichzeit#)
        dispose bereichzeit#

    endif

endproc

Die dazugehörende Def:
Def Zeit(0) Left$(Time$(0)+":"+Time$(1),8)

Christian

XProfan 8/9.1, Win XP, AMD 64/3200

Und wenn du das hier
Kompilieren Markieren Separieren

declare bereichzeit#
dim bereichzeit#,25
string bereichzeit#,0=ZEIT()
sendmessagea(Statuszeile_H&,$401,3,bereichzeit#)
dispose bereichzeit#

mal hinter Waitinput schreibst - ohne die thread.pcu - stürzts dann auch ab?

Salve.

Hallo, iF!
Nein, dann geht das Prog unter NT - dann wird halt klarerweise die Zeit nur bei irgendeiner Aktion aktualisiert.
Ich habe überdies zu Versuchszwecken auch mal die ältere thread.pcu-Version probiert - war ebenfalls sofort Dr.Watson da.

Christian

XProfan 8/9.1, Win XP, AMD 64/3200