Action zur Laufzeit mit Shortcut versehen

[sir-archimedes]

Leider hat das nicht funktioniert. Die Funktion ShortCut erzeugt auch nur eine neue Integerzahl:

Delphi-Quellcode:

function ShortCut(Key: Word; Shift: TShiftState): TShortCut;
begin
  Result := 0;
  if WordRec(Key).Hi <> 0 then Exit;
  Result := Key;
  if ssShift in Shift then Inc(Result, scShift);
  if ssCtrl in Shift then Inc(Result, scCtrl);
  if ssAlt in Shift then Inc(Result, scAlt);
end;

Da wird nichts registriert Hat sonst noch jemand einen Tipp?

Gruß,