so ich hab mal folgendes code-schnipsel gefunden, dass das überpüfen,ob das TMainMenu geöffnet ist, möglich macht:
Delphi-Quellcode:
type
TForm1 = class(TForm)
// ...
private
IsMenuOpen: Boolean;
procedure WMMENUSELECT(var message: TWMMENUSELECT); message WM_MENUSELECT;
end;
implementation
procedure TForm1.WMMENUSELECT(var message: TWMMENUSELECT);
begin
inherited;
IsMenuOpen := not ((message.MenuFlag and $FFFF = 0) and (message.Menu = 0));
end;
quelle:
http://www.swissdelphicenter.ch/de/showcode.php?id=956 von swissdelphicenter.ch
allerdings ganz verstehen tu ich den code nicht und leider war auch keine Erklärung dabei. Mich würde interssieren ob es hier möglich ist eine bollean oder so einzubauen die solange auf true ist solange das TMainMenu geöffnet ist.
Oder vielleicht ist hiermit sogar direkt möglich eine bestimmte Prozedure zu sperren solange das TMainMenu geöffnet ist.
Hoffe, dass mir jemand weiterhelfen kann...