Cómo comprobar si el menú está caído o no.
tipo
& nbsp & nbsp TForm1 = class(TForm)
& nbsp & nbsp ...
privada
& nbsp & nbsp IsMenuOpen: Boolean
& nbsp & nbsp procedimiento WMMENUSELECT(var message: TWMMENUSELECT) mensaje WM_MENUSELECT
procedure TForm1.WMMENUSELECT(var message: TWMMENUSELECT)
begin
& nbsp & nbsp heredado
& nbsp & nbsp IsMenuOpen := no ((mensaje.MenuFlag y $FFFF > 0) y (mensaje.Menú = 0))
fin
Es el menu abierto
Es el menu abierto : Multi-millones de consejos para hacer su vida mas facil.
Como comprobar si el menu esta caido o no.
tipo
& nbsp & nbsp TForm1 = class(TForm)
& nbsp & nbsp ...
privada
& nbsp & nbsp IsMenuOpen: Boolean
& nbsp & nbsp procedimiento WMMENUSELECT(var message: TWMMENUSELECT) mensaje WM_MENUSELECT
procedure TForm1.WMMENUSELECT(var message: TWMMENUSELECT)
begin
& nbsp & nbsp heredado
& nbsp & nbsp IsMenuOpen := no ((mensaje.MenuFlag y $FFFF > 0) y (mensaje.Menu = 0))
fin