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