XProfan

Michael
Wodrich

Das liegt sólo a el zusätzlichen Zeilenschaltungen.
Schreibst Usted no hinein (o. filterst vorher el Blockende en Zeilenenden) entonces debería alles en el Lot ser.

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

12.03.2007 ▲

@¡Hola Michael

Der Texto es con SLEEP 200 eingetragen, como hier WAITINPUT no va. Natürlich schreibt el Prrogramm entonces Leerzeilen a para nächsten SLEEP - como aber filtere Yo el Textende ? - KLeiner Denkanstoss wäre hilfreich - Daaanke

@IF

[offtopic] Hier en el Eingabe es el Cursor manchesmal no sichtbar. Egal si I, con ratón en el Position klicke o Richtungstasten benutze. [/offtopic]

13.03.2007 ▲

[offtopic]Yo weiß no por qué Firefox el tut. Hierzu auch: [...]

13.03.2007 ▲

Michael
Wodrich

Como müßte Yo ya una Bischen Code en y el Append haben en como algo genaueres a sagen a puede. ¿Puede lo sí por PM enviar.
Yo werd entonces hier una allgemeine Info darüber puesto y Usted el spezielle Änderung.

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

@Michael
Gracias para Su Interesse

- habe me una Code de Andreas Hötker runtergeladen
Kompilieren Marca Separación

Def @GetCurrentThreadId(0) !KERNEL32,GetCurrentThreadId
DEF @GetDlgCtrlID(1) !USER32,GetDlgCtrlID
DEF @ButtonClicked(1) @GetDlgCtrlID(@&(1))=-%MENUITEM
Def @SetTimer(4) !USER32,SetTimer
Def @KillTimer(2) !USER32,KillTimer
Declare Timer_WIN&,Text$[3],Button&,Zähler%,TIMER_ID&,PRO_ID&,TH_ID&
Windowstyle 31+512
Windowtitle Selbständig laufende Programmschleife
Window 0,0-640,440
Usermessages $10
LET TIMER_WIN&=@Control(Static,TIMER_WIN,$8000000,0,0,0,0,%Desktop,9998,%HINSTANCE,$4)
Let Button&=@createbutton(%HWND,,20,100,300,30)
LET TEXT$[0]=Hier klicken...
LET TEXT$[1]=...für die...
LET TEXT$[2]=...Messagebox!
LET TIMER_ID&=@SetTimer(TIMER_WIN&,9999,1500,@ProcAddr(TimerProc,4))

While %UMESSAGE<>$10

    Waitinput
    Locate 0,0
    Print @GetCurrentThreadId(),TH_ID&

    IF @ButtonClicked(Button&)

        @messagebox(Der Text auf dem Button ändert sich weiterhin!,Ein Wunder...?,64)

    endif

wend

@KiLLTIMER(TIMER_WIN&,9999)
end

Proc TimerProc

    Parameters ahhwnd&,ahuMsg&,ahidEvent&,ahdwTime&
    Settext Button&,Text$[Zähler%]
    INC Zähler%
    Case Zähler%=4 : LET Zähler%=0
    LET TH_ID&=@GetCurrentThreadId()

ENDPROC

...y así klappt el Sache

...y así klappt el Sache

Bitte insgesammt vorsichtig ser con solchen Callbacks. Wird vom Profanprogramm una Ventana genera während una Callback lauft, hay con Profano una heilloses Durcheinander - y el aber (desafortunadamente) auch no siempre...

@¡Hola Andreas
Gracias para el Warnung, aber Su Code funktioniert bestens. Nur una extraño Comportamiento tener Yo bemerkt: Desde que la ventana principal con SHOWMIN en el Statuszeile verbanne y luego con Strg+C betonten Texto para Ventana schicke, benimmt el Sache así: Clic I el programmierten Button para Minimieren es alles OK - Clic I el Unterstrich en el Systemmenu oben rechts, voluntad ya vorhandene Textos en meiner Expediente gelöscht ! Como komme Yo aber auch todavía hinter. Im Moment Yo WindowsStyle 22 y como va el Minimieren encima Systemmenu no.

Wo Usted Procaddr auch anwendest - lo se crashen si la aufrufende Api no solange wartet a ellos el Proc hinter Procaddr no mehr benötigt.

Puedo somit sólo de el Settimer-Api con Procaddr-Angabe abraten a Roland el gefixt ha.