Savoir si un TMainMenu est ouvert

type
TForm1 = class(TForm)
// ...
private
IsMenuOpen: Boolean;
procedure WMMENUSELECT( var message: TWMMENUSELECT); message WM_MENUSELECT;

procedure TForm1.WMMENUSELECT( var message: TWMMENUSELECT);
begin
inherited;
IsMenuOpen := not ((message.MenuFlag and $FFFF > 0) and (message.Menu = 0));
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour08/04/2002
VisualisationVu 684 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Systeme
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur