TSpinEdit und Komma

[hoika]

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

[DeddyH]

Geht es damit?
SetWindowLong(SpinEdit.Handle, GWL_STYLE, GetWindowLong(SpinEdit.Handle, GWL_STYLE) or ES_NUMBER);

[Aviator]

Die Methode könntest du etwas übersichtlicher gestalten.

Zitat von hoika:

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;

[DeddyH]

Müsste es nicht
CharInSet(Key, ['0'..'9', #8] heißen?

[p80286]

Ist das auch hinreichend schnell?
Bei mir hat es sich festgesetzt, das Or und in zwar leserlich sind, die erreichbare Performance dem aber diametral gegenüber steht?

Gruß
K-H

[himitsu]

Wenn du es schaffst paar Millionen Tasten pro Sekunde zu drücken, dann kannst du dir auch über die Geschwindigkeit von IN weitere Gedanken machen.

[Aviator]

Zitat von DeddyH:

Müsste es nicht
CharInSet(Key, ['0'..'9', #8] heißen?

Joa
Habe das gerade nur so dahingedaddelt. Kein Delphi gehabt und nicht an Char gedacht. Also mal schnell die Hochkomma vergessen.

Danke für den Hinweis.

[hoika]

Hallo,
sonst schreibe ich ja

"Danke, schau ich mir an",

aber heute (dada ...)

"Danke, schau ich mir morgen auf der Arbeit an"