Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.276 Beiträge
 
Delphi 10.4 Sydney
 
#1

TSpinEdit und Komma

  Alt 1. Aug 2016, 14:20
Hallo,
das normale TSpinEdit erlaubt auch die Eingabe eines Kommas.
Kann ich das ohne ein Event abzufangen verhindern?

Quick&Dirty sieht das bei mir Im Moment so aus:
(die 0 ist hier gerade auch nicht erlaubt)

Delphi-Quellcode:
procedure SpinEdit_PruefeZeichen(var Key: Char);
begin
  if (Key<>'1') and
     (Key<>'2') and
     (Key<>'3') and
     (Key<>'4') and
     (Key<>'5') and
     (Key<>'6') and
     (Key<>'7') and
     (Key<>'8') and
     (Key<>'9') and
     { Löschen über Rücktaste }
     (Key<>#8) then
  begin
    Key := #0;
  end;
end;
Danke
Heiko
  Mit Zitat antworten Zitat