AddGadgetItem in einer Repeat/Until-Schleife

[Bytedevil]

Hallo!

Ich habe folgenden Code:

Code: Alles auswählen

...
...

Repeat
 GetCursorPos_ (Mauskoordinaten(0))
 hWnd = WindowFromPoint_ (Mauskoordinaten(0)\x,Mauskoordinaten(0)\y)
 
 If hWnd <> 0 : AddGadgetItem (0,0,Str(hWnd)) : hWnd = 0 : EndIf
Until WaitWindowEvent () = #PB_Event_CloseWindow

Das Gadget erhält nur beim Überfahren eines Fensters nicht nur einen, sondern hunderte Einträge.

Warum? Wo steckt der Fehler?

Danke,
Bytedevil

[Hroudtwolf]

Vieleicht so ?

Code: Alles auswählen

...
...

Repeat
 GetCursorPos_ (Mauskoordinaten(0))
 hWnd = WindowFromPoint_ (Mauskoordinaten(0)\x,Mauskoordinaten(0)\y)
 
 If hWnd <> 0 
nix=0
for x=0 to countgadgetitems(0)-1
if  getgadgetitemtext (0,x,0)=str(hWnd):nix=1:endif 
next x
 if nix=0:AddGadgetItem (0,0,Str(hWnd)):endif
 hWnd = 0 
 EndIf

Until WaitWindowEvent () = #PB_Event_CloseWindow 

[GPI]

Ein Delay(1) würde ich reinhauen, sonst frist es 100% Resourcen.

[Hroudtwolf]

Stimmt hab ich vergessen ..Sorry

[Bytedevil]

Hab mich vielleicht unglücklich ausgedrückt... eine Lösung àla Hroudtwolf hätte ich mir sicherlich auch noch zusammenbasteln können.

Trotzdem: VIELEN DANK!!!

Aber warum verhält sich mein Programm so? Eigentlich müßte es doch nur einen Eintrag machen, da hWnd ja auf "0" gesetzt wird.

[Donald]

Hi,

klar setzte den auf 0,
und beim nächsten durchlauf wird der Wert wieder eingelesen.

[Bytedevil]

Manchmal sieht man den Wald vor Bäumen nicht...