Eingabeeinschränkung bei Edit wird ignoriert

[BAMatze]

Zitat von DeddyH:

Die Methode FEdKeyDown ist in der Basisklasse aber deklariert?

hab sie wie folgt in der Ursprungskomponente (eigentlich) auf das OnKeyDown-Event des enthaltenden TEdits gelegt:

Delphi-Quellcode:

// im Constructor (hab es aber auch schon in der CreateWnd-Funktion drin, leider keine Besserung)
constructor TLabEdit.Create(AOwner: TComponent);
...
  FEdEingabe := CreateEdit(0,0, FLblAnzeige.Width + 20, FLblAnzeige.Height, FLblAnzeige.Font.Height, false);
  FEdEingabe.OnKeyDown := FEdKeyDown;
...

function TLabEdit.CreateEdit(PosX, PosY, Width, Height, Textgroesse: integer; visible: boolean): TEdit;
begin
  result := TEdit.Create(nil);
  result.Left := PosX;
  result.Top := PosY;
  result.Width := Width;
  result.Font.Assign(Font);
  //result.Text := Text;
  result.Visible := visible;
  result.Parent := Self;
end;