Button mit speziellen Eigenschaften gesucht

[BrunoT]

So nun hab ich mich einmal daran gewagt, das in eine neue Komponente zu packen:

Delphi-Quellcode:

unit UExtraButton;

interface

uses
   SysUtils, Classes, Controls, StdCtrls, Buttons, windows;

type
  TExtraButton = class(TBitBtn)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    procedure KeyDown(var Key: Word; Shift: TShiftState); override;
    constructor create(AOwner: TComponent); override;
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure TExtraButton.KeyDown(var Key: Word; Shift: TShiftState);
begin
  if not (key  in [Vk_UP,VK_Down]) then
  inherited KeyDown(key, Shift);
end;

constructor TExtraButton.create(AOwner: TComponent);
begin
      inherited create(AOwner);
end;

procedure Register;
begin
  RegisterComponents('Zusätzlich', [TExtraButton]);
end;

end.

aber diese macht das auch nicht wie ich will(VK_UP,VK_DOWN) werden vorher abgefangen.

mfg

BrunoT

wer kann helfen?