Yupp...sehe ich genauso wie DeddyH. Noch dazu ist das "Nachrüsten" mit einer einzigen Zeile Quellcode passiert:
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ord(Key) > 27 then if not (Key in ['0'..'9']) then Key := #0;
end;
Und wenn ich z.B. 20 Edit's auf der Form hätte, dann weise ich das halt jedem TEdit zu. Es bleibt bei einer Zeile Code.
wenn ich mich richtig erinnere fehlt da noch Return,Backspace....
aber das Prinzip ist schon mal gut.
Wobei ich irgendwie das Gefühl habe das die Validierung zum falschen Zeitpunkt stattfindet.
Wenn
nach dem onExit der Abbruch
oder die Validierung stattfinden soll, wäre es nicht schlecht das auch so zu programmieren.
Gruß
K-H