Problem mit KeyDown

[_frank_]

ich hab mir ein Control von TCustomControl abgeleitet und da KeyDown überschrieben.
leider wird meine methode nicht aufgerufen (wurde nicht wegoptimiert).
es kommen keine Compilerfehler/warnungen. TWinControl.KeyDown (die ursprungsmethode) wird aufgerufen nur meine nicht.

Delphi-Quellcode:

  TBlah=class(TCustomControl)

  protected
    procedure KeyDown(var Key: Word; Shift: TShiftState);override;
  end;

...

procedure TBlah.KeyDown(var Key: Word; Shift: TShiftState);
begin
  showmessage('keydown');
  inherited;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TBlah.create(self) do
  begin
    parent:=self;
    top:=0;
    left:=0;
    width:=100;
    height:=100;
  end;
end;

hat jemand eine Idee, was ich falsch mache?

Gruß Frank

[bitsetter]

Hi,

setze mal den Focus in das Control, dann funktioniert es auch.

Delphi-Quellcode:

   
   ...
  with TBlah.create(self) do
  begin
    parent:=self;
    top:=0;
    left:=0;
    width:=100;
    height:=100;

    SetFocus;
  end;...

[_frank_]

danke bitsetter
naja, der focus sollte doch gesetzt werden, wenn ich mit der maus draufklicke, oder?
hab das jetzt zwar manuell im mousedown gemacht, aber trotzdem komisch...

Gruß Frank