XProfan

Michael
Wodrich

cela liegt seulement à den zusätzlichen Zeilenschaltungen.
écris Du aucun hinein (bzw. filterst auparavant cela Blockende sur Zeilenenden) ensuite sollte alles im Lot son.

belle Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

12.03.2007 ▲

@allô Michael

qui Text wird avec SLEEP 200 eingetragen, là ici WAITINPUT pas allez. Bien sûr écrit cela Prrogramm ensuite encore Leerzeilen jusqu'à zum prochain SLEEP - comment mais filtere je cela Textende ? - KLeiner Denkanstoss wäre hilfreich - Daaanke

@iF

[offtopic] ici dans qui Eingabe ist qui Cursor manchesmal pas sichtbar. égal si je avec qui souris sur qui Position klicke ou bien qui Richtungstasten benutze. [/offtopic]

13.03.2007 ▲

[offtopic]je ne sais pas pourquoi Firefox cela tut. Hierzu aussi: [...]

13.03.2007 ▲

Michael
Wodrich

là devrait je déjà un un peu Code um et dem Append avons um là quelque chose genaueres trop dire trop peut. peux es oui per PM envoyons.
je werd ensuite ici une allgemeine Info par-dessus posten et Dir qui spezielle Changement.

belle Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

@Michael
merci pour Dein intérêt

- habe mir une Code de Andreas Hötker runtergeladen
Kompilieren Marque Séparation

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

...et avec cela klappt qui l'affaire

...et avec cela klappt qui l'affaire

s'il te plaît insgesammt prudent son avec solchen Callbacks. Wird vom Profanprogramm un la fenêtre erzeugt au cours de un Callback lauft, gibt es avec Profan un heilloses Durcheinander - et cela mais (malheureusement) aussi pas toujours...

@allô Andreas
merci pour qui avertissement, mais Dein Code funktioniert bestens. seulement un seltsames Verhalten hab je bemerkt: là je cela Hauptfenster avec SHOWMIN dans qui Statuszeile verbanne et ensuite avec Strg+C betonten Text zum la fenêtre schicke, benimmt sich qui l'affaire so: Klick je sur den programmierten Button zum Minimieren ist alles OK - Klick je sur den Unterstrich im Systemmenu dessus à droite, volonté déjà vorhandene Textes dans meiner Dossier gelöscht ! là viens je mais aussi encore derrière. Im Moment habe je WindowsStyle 22 et là allez cela Minimieren sur Systemmenu pas.

wohin Du Procaddr aussi anwendest - es wird crashen si le aufrufende Api pas solange wartet jusqu'à vous qui Proc derrière Procaddr pas plus nécessaire.

je peux somit seulement de qui Settimer-Api avec Procaddr-Angabe dissuader jusqu'à Roland cela gefixt hat.