Eine mögliche Alternative ist der Einsatz einer TAction. Im OnCreate der Form kannst du den oder die ShortCuts zuweisen, im OnExecute der Action bei Bedarf das aktive Control überprüfen.
Delphi-Quellcode:
// uses Menus
procedure TForm1.FormCreate (Sender: TObject);
begin
Action1.ShortCut := ShortCut(VK_NUMPAD1, [ssAlt]);
Action1.SecondaryShortCuts.Add(ShortCutToText(ShortCut(Ord('1'), [ssAlt])));
end;
procedure TForm1.Action1Execute (Sender: TObject);
begin
IF (ActiveControl = Edit1) THEN
Caption := IntToStr(GetTickCount);
end;
Gruß Hawkeye