Menu einklappen

[Amateurprofi]

Ich benutze gelegentlich die WM_Help Message, die gesendet wird, wenn die F1-Taste gedrückt wird, während die Maus auf einen Menu-Eintrag zeigt, um eine .hlp Datei zu öffnen und zu dem für diesen Menu-Eintrag definierten Text zu springen.
Problem dabei:
Das Menu bleibt aufgeklappt und verdeckt teilweise den Hilfe-Text.
Ist nicht wirklich ein Problem, weil mit einem Klick in den Hilfe-Text das Menu eingeklappt wird, ist aber unschön.
Ich habe u.A. versucht einen Mausklick auf den Punkt(0,0) in der Form zu simulieren, was das Menu einklappen sollte.

Code:

   Mouse_Event(MOUSEEVENTF_LEFTDOWN or MOUSEEVENTF_ABSOLUTE,0,0,0,0);
   Mouse_Event(MOUSEEVENTF_LEFTUP or MOUSEEVENTF_ABSOLUTE,0,0,0,0);

Funktioniert aber nicht, sondern löst ein Klick auf den Menu-Eintrag aus.
Frage:
Wie kann ich bewirken, dass das Menu eingeklappt wird, ohne manuell irgendwo hinzuklicken.

Delphi-Quellcode:

PROCEDURE TMain.WMHelp(var Msg:TMessage);
var HlpId,X:Integer; PHInfo:PHelpInfo;  MI:TMenuItem; Ctrl:Boolean;
begin
   Ctrl:=GetAsyncKeyState(VK_Control)<0;
   if Assigned(Menu) then begin
      PHInfo:=PHelpInfo(Msg.LParam);
      if PHInfo.iContextType=HELPINFO_MENUITEM then begin
         MI:=Menu.FindItem(PHInfo.iCtrlId,fkCommand);
         if Assigned(MI) then
            if Ctrl and (MI.Hint<>'') then begin
               X:=ScreenToClient(PHInfo.MousePos).X;
               ShowHint(X,MI.Hint) // Zeigt den Hint am unteren Rand des Fensters
            end else begin
//               Mouse_Event(MOUSEEVENTF_LEFTDOWN or MOUSEEVENTF_ABSOLUTE,0,0,0,0);
//               Mouse_Event(MOUSEEVENTF_LEFTUP or MOUSEEVENTF_ABSOLUTE,0,0,0,0);
               HlpId:=-1;
               if MI.IsLine then HlpId:=HelpTopicToHelpId('miBreakLine')
                  else HlpId:=HelpTopicToHelpId(MI.Name+Name);
               if HlpId<0 then HlpId:=HelpTopicToHelpId('Menu'+Name);
               if HlpId>=0 then ShowHelp(HlpId);
            end;
      end;
   end;
end;

[Delphi.Narium]

Eventuell How to close the main menu programmatically?

[Amateurprofi]

Zitat von Delphi.Narium:

Eventuell How to close the main menu programmatically?

Danke für den Tipp.
  SendMessage(Handle, WM_CANCELMODE, 0, 0); funktioniert perfekt.

[Uwe Raabe]

Ein simples EndMenu tut's auch.

[Amateurprofi]

Zitat von Uwe Raabe:

Ein simples EndMenu tut's auch.

Danke Uwe, funktioniert.
Frage mich, warum ich das nicht gefunden habe.
Hab mich um und dumm gesucht, zugegebenerweise nur bei TMenuItem.