Wie bei neuer Komponenten KeyPress oder KeyDown behandeln?

[Daniel B]

Hallo,

wie kann man das machen, bei einer neuen Komponente, die von TEdit abgeleitet ist?

Grüsse, Daniel

[Chewie]

Eigentlich genauso wie bei TEdit auch. Die beiden Ereignisse hat ja das Edit schon, da musst da ja nix selber implementieren.

[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