Dann versuch mal folgendes:
Delphi-Quellcode:
// Allgemeine Behandlungsroutine einer Komponente
procedure TForm1.TastenDruckKeyDown(Sender: TObject);
begin
Form1KeyDown(Sender);
// Restlicher Code, der gemacht werden soll
end;
// KeyDown des Forms
procedure TForm1.Form1KeyDown(Sender: TObject);
begin
// Was halt zu machen ist
end;
Ist zwar sicher nicht die beste Art, aber immo die schnellste Lösung, die mir so kurz vor meinem Osterurlaub einfällt