MainMenu ShortCut funktioniert nicht

[MiKaEr]

anders ist es mir leider nicht möglich ein menu zu erstellen, welches "verschiebbar" ist (so wie die toolbars der Emba IDE, die kann man auch verschieben)

[himitsu]

Ja, die Toolbars kann man verschieben, aber nicht das Hauptmenü.

[MiKaEr]

das hauptmenu sitzt bei mir aber auf der toolbar und dieses wird auch mit verschoben

[himitsu]

Ich würde dieses uralte Feature (gibt's seit über 7 Jahren nicht mehr) als Bug abstempeln.

[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;

[jaenicke]

Zitat von himitsu:

Ich würde dieses uralte Feature (gibt's seit über 7 Jahren nicht mehr) als Bug abstempeln.

Wie meinst du das? Hier z.B. ein Screenshot von XE2 mit verschobenem Menü (oben rechts ist noch ne Leiste, sonst wäre die Zeile oben auch nicht leer):

XE2MainMenu.png

Das kann man dort genauso verschieben wie in den vergangenen Versionen.

[himitsu]

Hmmm, da sah garnicht verschiebbar aus.
Währe jetzt die Frage, weöchen Hack Emba dort einsetzt.


Dieses Menü ist aber auch komisch.

Mir fehlt jetzt eine Leiste, weil ich die gradd nach links aus'm Bild rausgeschoben hab.



Könnte man die Ribbons auch halb so hoch nutzen, wären die bestimmt eine bessere Alternative.

[Bummi]

Mainmenu dem Toolbar zuweisen, dem Formular "wegnehmen"

[himitsu]

Grade nachgesehn.

Das in der Delphi-IDE ist kein TMainMenu

Es ist eine TCoolBar und darin eine TActionMainMenuBar und ein ActionManager und/oder eine ActionList.
Und schon erklärt es sich, warum die "Bar" in dem CoolMenü ordentlich funktioniert.

Der Rest sind TDockToolBars.



Structur und die Projektverwaltung das sind ... man glaubt es kaum ... TVirtualStringTrees, bzw. das IDE-Insight ein TVirtualDrawTree.


[add]
So, in Delphi 7 war es schon genauso, auch dort war es kein TMainMenu.
Schon interessant, daß sich daran rein garnichts verändert hat, außer daß man sich inzwischen von der eigenen TreeView abgewendet hat.

[jaenicke]

Zitat von himitsu:

Structur und die Projektverwaltung das sind ... man glaubt es kaum ... TVirtualStringTrees, bzw. das IDE-Insight ein TVirtualDrawTree.

Das war mir klar.
Die "eigene" TreeView ist ja im Grunde eine Kapselung des Controls von Windows und ist schlicht zu langsam und kann zu wenig.