Erkennen, wenn ein TPopupmenu verschwindet

[bernau]

Tach zusammen,

Die Vorgeschichte:
In meinem Programm ist ein Timer aktiv. In OnTimer, der jede Sekunde durchlaufen wird, soll je nach Programmzustand eine komplexe Berechnung durchgeführt werden. Diese Berechnung dauert dann ca. 10 Sekunden. Weiterhin gibt's in diesem Programm ein Popupmenu, mit dem einige Einstellungen durchgeführt werden können. Wenn aber nun das Popup geöffnet ist, und danach die Berechnung gestartet wird, dann friert das Popupmenu ein. Ich kann hinklicken wohin ich will, das PopupMenu belibt sichtbar, bis die Berechnungsroutine durchgelaufen ist.

Mein Lösungsansatz:
Ist eingendlich ganz einfach. Wenn das Popupmenu aufpoppt, dann Disable ich einfach den Timer. Dazu gibt es ja OnPopup. Damit wird die Berechnung nicht gestartet und für das Popupmenu gibt's keinen Grund einzufrieren.

Mein Problem:
Wenn das PopupMenu verschwindet, soll der Timer wieder enabled werden. Aber wie? Ich habe kein Ereignis oder Eigenschaft gefunden, an der ich sehen kann, ob ein Popup noch sichtbar ist.


Gerd