Bei meiner Komponente funktioniert KeyDown nicht

Hallo,

ich habe eine Komponente geschrieben (Vorgänger: TCustomControl) und in der Header - Datei habe ich die Funktion KeyDown deklariert:

class Meine
{
   ...
   protected:
     DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
   ...
};

in der Cpp Datei habe ich die Funktion dann gefüllt

void __fastcall Meine::KeyDown(Word &Key, Classes::TShiftState Shift)
{
   switch (Key)
   {
      case 37:
      case 38:
      case 39:
      case 40: ShowMessage("Pfeiltaste"); break;
   }
   Invalidate();
}

Leider klappt das nicht. Komischerweise klappt das ganze aber wenn ich aus dem KeyDown ein KeyUp mache. Kann mir jemand sagen, woran das liegt?

Danke schon im voraus

DerAltenburger

Fuege mal das als ersten Befehl in deine funktion ein:

TCustomControl::KeyDown(Key,Shift);

Bei mir klappt das! ???