Trayicon abfrage und menu

Bongbaer, 28.11.2004 15:55: Servus,
ich habe folgendes Problem: Mein neues Programm soll mit einem Trayicon unten rechts aufzurufen sein. Das funktioniert auch so weit. Das menu geht auf und man kann die entsprechenden Optionen anklicken.
Wenn ich allerdings das menü ausversehen aufgekickt habe, möchte ich gerne, dass es sich nach einer gewissen Zeit wieder schliesst oder beim klick auf den desktop.
Ausserdem kann es teilweise sein, dass sich das programm beim klick auf den desktop öffnet. Woran liegt das blos.
Mit der folgenden Procedure frag ich das Icon ab:
proc Trayiconabfrage
declare Zeichen$,Ende%,mouse%,zähler%,doppelklick%
sleep(20)
if TaskBarNotification(1234)
sleep(20)
if maus($1)
let zähler%=0
let doppelklick%=0
sleep(100)
while xor(neq(zähler%,GetDoubleClickTime()),doppelklick%)
sleep(100)
let zähler%=add(zähler%,100)
case maus($1) : let doppelklick%=1
wend
case doppelklick%:let Fensterauf%=1
elseif maus($2)
let appendmenü%=1
endif
let ende%=1
endif
endproc
Danke für die Hilfe

Dies ist die Offlinevariante vom Thread [Trayicon abfrage und menu].