Comment faire pour vérifier si un menu est tombé vers le bas ou pas.
type
& nbsp & nbsp TForm1 = class(TForm)
& nbsp & nbsp ...
private
& nbsp & nbsp IsMenuOpen: Boolean
& nbsp & nbsp procédure WMMENUSELECT(var message: TWMMENUSELECT) message WM_MENUSELECT
procedure TForm1.WMMENUSELECT(var message: TWMMENUSELECT)
begin
& nbsp & nbsp hérité
& nbsp & nbsp IsMenuOpen := not ((message.MenuFlag et $FFFF > 0) et (message.Menu = 0))
fin
Est menu ouvert
Est menu ouvert : Plusieurs milliers de conseils pour vous faciliter la vie.
Comment faire pour verifier si un menu est tombe vers le bas ou pas.
type
& nbsp & nbsp TForm1 = class(TForm)
& nbsp & nbsp ...
private
& nbsp & nbsp IsMenuOpen: Boolean
& nbsp & nbsp procedure WMMENUSELECT(var message: TWMMENUSELECT) message WM_MENUSELECT
procedure TForm1.WMMENUSELECT(var message: TWMMENUSELECT)
begin
& nbsp & nbsp herite
& nbsp & nbsp IsMenuOpen := not ((message.MenuFlag et $FFFF > 0) et (message.Menu = 0))
fin
