Wie bei neuer Komponenten KeyPress oder KeyDown behandeln?

[Daniel B]

Hallo,

hat sich erledigt.
Geht so:

Delphi-Quellcode:

  protected 
    procedure KeyPress(var Key:Char); override;

Delphi-Quellcode:

procedure TRealEdit.KeyPress(var Key:Char);
begin
  inherited KeyPress(Key);
  if not (Key in ['0'..'9', #8]) then
  begin
    Key := #0;
  end;
end;

Grüsse, Daniel