Ich glaub, jetzt hab ich es gerafft. Was das mit KeyPress zu tun hat hab ich zwar immer noch nicht verstanden, aber egal. Klar ist es dann so wie es mkinzler schreibt.
Ich würde dann aber ein Property implementieren bei dem man den Typ setzt. Das ist zum Beispiel eine Möglichkeit:
Delphi-Quellcode:
TValueTyp = (vt_Integer, vt_Real); // oder noch mehr
TValueTypeEdit = class(TEdit)
private
FValueTyp : Integer;
...
public
property ValueTyp : TValueTyp read FValueTyp write FValueTyp;
...
Das ist natürlich eine eigene neue Klasse. Du kannst dann zum Beispiel den Typ im Code über dieses neue Property einstellen. Dann vererbst du alle relevanten Methoden und behandelst die Werte indem du den Typ abfragst und ihn dementsprechend behandels. Das dann auch über eine Case:
Delphi-Quellcode:
...
case FValueTyp of
vt_Integer : // hier alles tun damit nur ein Integer übrig bleibt (z.B. Trunc)
vt_Real : ..........
end;
Gruß