|
Registriert seit: 3. Jun 2010
1.611 Beiträge
Delphi 10.3 Rio
|
AW: TSpinEdit und Komma
1. Aug 2016, 13:45
Die Methode könntest du etwas übersichtlicher gestalten. 
Hallo,
Delphi-Quellcode:
procedure SpinEdit_PruefeZeichen(var Key: Char);
begin
if not (CharInSet(Key, [0..9, #8]) then // #8 war glaube ich Backspace EDIT: Ach ja, steht ja bei dir drin. Wer lesen kann ...
begin
Key := #0;
end;
end;
|