[D2009] MainMenu Hotkey/Unterstriche immer Sichtbar

[Delphi.Narium]

Im Ursprung war die Regel:

Hotkey = Alt + 1. Buchstabe des Menüeintrages.

Das mit dem & und der daraus folgenden Unterstreichung "irgendeines" Buchstabens im Menütext erfolgte erst später.

Bei (sehr) alten Programmen mit Menü (auch schon vor Windows) funktionierte das so, man musste nur darauf achten, dass in einem Menü nicht zwei (oder mehr) Einträge mit dem gleichen Buchstaben begannen.

Mit F10 wird (meistens) das Menü aktiviert, dann reicht auch der erste Buchstabe für die Auswahl des entsprechenden Hauptmenüeintrages. Der erste Buchstabe des Untermenüs aktivierte dann dieses.

Wenn Du Dich an diese Regel hälts, ist es egal, ob unterstrichen wird oder nicht. Alt+1. Buchstabe führen dann immer zum Ziel.

Allerdings musst Du Windows dann auch sagen, dass es die Hotkey nicht selbst "würfeln" soll bzw. konsequent in Deinen Menüs vor den ersten Buchstaben das & setzen.

Bei Beachtung der Regel beendet man Delphi mit

F10, D, B.

oder

Alt+D, B

oder

Alt+F4

Das geht so bei vielen Programmen.

Und wenn Du es wirklich richtig machen möchtest, dann halte die dadran: Microsoft: German Style Guide

[KodeZwerg]

Bei mir wäre es eher ALT/F/E bzw ALT+F4.
Guckst Du Screenshot - 27_08.jpg

Dalai sein Tipp will noch nicht so ganz, irgendwas mache ich da noch falsch.

[Dalai]

Die auf die hier benötigen Teile reduzierte Variante müsste so aussehen:

Delphi-Quellcode:

type TMyMenuItem = class(TMenuItem)
  protected
     procedure AdvancedDrawItem(ACanvas: TCanvas; ARect: TRect;
      State: TOwnerDrawState; TopLevel: Boolean); override;
  end;

implementation

procedure TMyMenuItem.AdvancedDrawItem(ACanvas: TCanvas; ARect: TRect;
      State: TOwnerDrawState; TopLevel: Boolean);
begin
    State:= State - [odNoAccel];
    inherited;
end;

Beachte, dass deine MenuItems von dieser Klasse sein müssen (oder davon abgeleitet). Keine Ahnung, ob Class Helper der neueren Delphis hier helfen könnten (hab ich noch nie benutzt) oder ob man die Klasse TMenuItem einfach redefinieren kann, so dass die erweiterte Klasse denselben Namen hat.

Grüße
Dalai

[KodeZwerg]

Zitat von Dalai:

Beachte, dass deine MenuItems von dieser Klasse sein müssen (oder davon abgeleitet).

Ahhhh da liegt bestimmt mein Fehler, das werde ich mal ausprobieren, Super Tipp für meinen banalen Wunsch nach Unterstrichen.

[Dalai]

Just for the record (und die Nachwelt): Eine PN von KodeZwerg nahm ich zum Anlass, zu graben, warum ich die Funktion TMenuItem.AdvancedDrawItem damals im Delphi 5 überschrieben habe und warum er mit meinem Vorschlag keinen Erfolg verzeichnen kann.

Die Ursache liegt darin, dass die Funktion AdvancedDrawItem nur gerufen wird, wenn einem TMenu/TPopupMenu eine TImageList zugewiesen ist, oder TMenu.OwnerDraw:= True ist. Siehe z.B. auch dieser Uralt-Thread in den Delphigroups. Für ein TMenu/TPopupMenu ohne ImageList und ohne OwnerDraw bringt mein Vorschlag keine Veränderung (=nichts).

Sollte also jemand versuchen, meinen Vorschlag umzusetzen und sich wundern, warum er nicht tut, so liegt es daran. Das wollte ich nur festgehalten haben. Es gibt aber andere Wege, z.B. der über WndProc.

Grüße
Dalai

[KodeZwerg]

*entfernt*

Da war der Wurm drinnen.

[Dalai]

Damit schaltest du aber die Menu Accelerators global für ALLE Programme ein! Du änderst also in deinem Programm eine Systemeinstellung, die der Nutzer evtl. explizit ausgeschaltet hat.

Grüße
Dalai