Hallo,
klar, du kannst in der Routine OnKeyPress die Tasten abfangen. Ich habe das zwar noch nicht in einem Memofeld gemacht, aber in TEdit mache ich das ständig:
Delphi-Quellcode:
const
CZahlenGroup = ['-','1','2','3','4','5','6','7','8','9','0',#8];
procedure TForm1.SimulateEnterZahlen(Sender: TObject;var Key: Char);
begin
if not (Key in CZahlenGroup) then
Key:=#0;
end;
Mein Fall löscht die Taste einfach, du kannst aber natürlich dann auch den Key auf Enter setzen ...
cu
easy