Es ist recht einfach, wenn du auf der Standard-Seite deiner Komponentenpalette die Komponente TActionList findest. Ziehe diese Komponente auf eine Form, öffne ihren Designer per Doppelklick, lege ein paar Actions an und gib allen Actions unterschiedliche ShortCuts und einen gemeinsamen Event Handler:
Delphi-Quellcode:
procedure TDemoForm.ActionExecute(Sender: TObject);
begin
with Sender as TAction do
ShowMessage(ShortCutToText(ShortCut));
end;
Starte das Programm und probiere die Shortcuts aus.
Grüße, marabu