Ich verwende hier ein TApplicationEvent-Object in der Mainform. Mit der folgenden Abfrage kann ich die Shortcuts aus dem Main-Manu verwenden und die Alt+Buchstabe-Abfrage machen, um z.B. den entsprechenden Menübandeintrag (Alt+S für "Start") anzeigen zu lassen. Gleichzeitig wird sichergestellt, dass bestimmte Alt (+Strg)-Kombinationen von den üblichen Objekten (z.T. TEdit für "@-Zeichen", das man normalerweise mit Alt+Strg+E aufruft) verarbeitet werden können.
Delphi-Quellcode:
procedure Tfrm_Main.AppEvents1ShortCut(
var Msg: TWMKey;
var Handled: Boolean);
begin
//Shortcut für mein nicht angezeigtes MainMenu?
Handled := Menu1.IsShortCut(Msg);
//Shortcut bzw. Key kam nicht aus dieser Form, daher hier keine weitere Prüfung
//und statt dessen Verarbeitung in anderer Form (z.B. MDI)
if Application.ActiveFormHandle <> self.handle
then exit;
if not handled
then begin
// Alt+Strg gedrückt?
if (Getkeystate (VK_MENU)
shr 15 <> 0)
and (Getkeystate (VK_Control) <> 0)
then begin
if (msg.CharCode
in [69,81])
then begin // @ und €-Zeichen wurden gedrückt
Handled := false;
exit;
end;
end;
end;
if not handled
then begin
// Tasten Alt+Buchstaben (A-Z) gedrückt?
if Getkeystate (VK_MENU)
shr 15 <> 0
then begin
if (msg.CharCode
in [65..90])
or (msg.CharCode.ToString = '
186')
then begin
handled := True;
sleep (10);
// Tatsächliche Verarbeitung in der Form-KeyUp-Prozedur
FormKeyup(
NIL, msg.CharCode, [ssAlt]);
end;
end;
end;
end;
Beispiel für eine Anwendung im anliegenden Screenshot: Mainmenu ist in Form, wird aber nicht angezeigt (Stattdessen arbeite ich mit eigenen Menübändern, nutze aber die Menüeinstellungen des Mainmenus, für die der User auch benutzerdefinierte Einstellungen vornehmen kann, um so z.B. eigene Shortcuts festzulegen).