Ist im Menü geöffnet

Ist im Menü geöffnet

Ist im Menü geöffnet : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Gewusst wie: überprüfen, ob ein Menü oder nicht gefallen ist.
Typ
TForm1 = class(TForm)
...
Private
IsMenuOpen: Boolean;
Procedure WMMENUSELECT (Var Message: TWMMENUSELECT); Nachricht WM_MENUSELECT;
Procedure TForm1.WMMENUSELECT (Var Message: TWMMENUSELECT);
beginnen
erbte;
IsMenuOpen: nicht = ((Meldung. MenuFlag und $FFFF > 0) und (Meldung. Menü = 0));
Ende;