Forum: Object-Pascal / Delphi-Language
Delphi
by Whookie,
25. Okt 2016
Das ist ja das schöne an der Lösung, NumbersOnly erlaubt kein -, keinen Dezimalpunkt und auch kein + und die Fehlermeldung ist dann auch wieder da!
über on KeyDown hat man das größtenteils selber in der Hand...
Die einfachste Lösung um grundsätzliches Editieren zu erlauben sieht dann so aus:
Uses
Clipbrd;
Const
Forum: Object-Pascal / Delphi-Language
Delphi
by Whookie,
25. Okt 2016
Statt NumbersOnly zu setzen mach das einfach im OnKeyPress:
procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Not CharInSet(Key, ) then
Key := #0;
end;