Frage zum Thema OOP

[DGL-luke]

Zitat von Hansa:

Delphi-Quellcode:

TRealEdit = class(TIntEdit)

procedure TRealEdit.KeyPress(var Key: Char);
begin
  inherited KeyPress(Key);  // nur 0..9 werden zugelassen, sonst :
  if (Key <> DecimalSeparator]) then  // hier auch noch , oder . zulassen
    key := #0;
end;

So wird das aber nichts... decimalseparator wurde ja schon im inherited genullt

EDIT: am besten wäre hier wohl ein set of char, das mit allem, das erlaubt ist, befüllt wird. wobei dann das ganze ableiten hinfällig wird, wenn man dieses als feld deklariert und in der keypress-prozedur überprüft.