XProfan

Michael
Wodrich

the lying only on whom additional Zeilenschaltungen.
write You no into (or. filterst before the Blockende on Zeilenenden) then ought to everything in the Lot his.

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

03/12/07 ▲

@Hello Michael

The Text is with SLEEP 200 registered, there here WAITINPUT not goes. naturally writes the Prrogramm still Leerzeilen until next SLEEP - How but filtere I the Textende ? - KLeiner Denkanstoss would helpful - Daaanke

@iF

[offtopic] here in the input is the Cursor manchesmal not visible. alike whether I with the mouse on The position click or The Richtungstasten use. [/offtopic]

03/13/07 ▲

[offtopic]i don't know Why Firefox the does. For this, too: [...]

03/13/07 ▲

Michael
Wodrich

there should I already one Bischen code circa and the Append having circa there something genaueres To say to. can it Yes by PM send.
I werd then here a general Info above post and you The Special Änderung.

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

@Michael
thanks for your interest

- have me a Code Andreas Hötker runtergeladen
Compile Mark Separation

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

...and so works The thing

...and so works The thing

Please insgesammt softly-softly his with such Callbacks. becomes of Profanprogramm one Window created during one Callback running, there with Profan one heilloses confusion - and the but (unfortunately) neither always...

@Hello Andreas
thanks for warning, but your code functions fine. only one Weird behaviour Have I notice: Since I the Mainwindow with SHOWMIN into Statuszeile ban and then with Strg+C betonten Text to that Window mail, benimmt the thing so: Click I on whom programmierten Button to that minimize is everything OK - Click I on whom Unterstrich in the Systemmenu supra right, go already available Texts in of my File deleted ! there come I but too yet behind. in the momentum have I WindowsStyle 22 and there does it minimize over Systemmenu not.

where You Procaddr too anwendest - it'll crashen if The aufrufende Api not as long as wait until The Proc behind Procaddr not any more needed.

I can accordingly only from the Settimer-Api with Procaddr-indicated dissuade To Roland the gefixt has.