MainMenu ShortCut funktioniert nicht

[Constructor]

Immerhin gibt es in der SDK ein Beispiel, wie man solche IE-Toolbar's mit Menü erstellt. Dennoch gebe ich himitsu Recht, das MainMenu gehört zum Formular.

Wenn man es trotzdem nutzen möchte, muss man folgenden Code im OnShortCut-Ereignis des Formulars einfügen:

Delphi-Quellcode:

procedure TMainForm.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
var
   Index : integer;
begin
   Handled := True;
   for Index := 0 to ComponentCount - 1 do
   begin
     if Components[Index] is TMainMenu then
        if TMainMenu(Components[Index]).IsShortCut(msg) then exit;
   end;
   Handled := False;
end;