Prüfen, ob Edit nur aus Zahlen besteht

[Matze]

Zitat:

Zitat von mkinzler

[...] oder im KeyPress-Event manuell überprüfen

Oder im OnChange, um auch aus der Zwischenablage eingefügtes zu berücksichtigen.

[Luckie]

Zitat:

Zitat von lord.paddington

das würde dann wie aussehen???

Zu den Funktionen siehe die Dlphi Hilfe und zum Eingabebeschränkten siehe die Code-Library.

[IceTube]

Hi!

Das wäre meine Variante...

Delphi-Quellcode:

procedure TextFeldKeyPress(Sender: TObject; var Key: Char);
var allow : string;
begin
//Zahlen die erlaubt sind
allow := '1234567890,';
//Prüfe ob Key erlaubt ist
if Pos(Key,allow) = 0 then Key := #0;
end;

Beachte: Das Einfügen aus dem Clipboard wird dabei nicht kontrolliert!

lg

[mkinzler]

Ich würde allow dann als Konstante deklarieren

[Matze]

Und Backspace (#8) dürfte auch nicht funktionieren. Bei einem Integer ist es auch nicht sinnvoll, das Komma zuzulassen und Fehleingaben (mehrere Kommas) wären ebenfalls möglich.

Also eher so, doch das findet sich zu Hauf in der DP:

Delphi-Quellcode:

if not (Key in ['0'..'9', #8]) then
  Key := #0;

[TheReaper]

hi,

Für solche Zwecke nutze ich immer den TSpinEdit. Du kannst in der Kompo nur Zahlen eingeben und außerdem noch den Wertebereich (z.B für deine Farwerte) einstellen. OnKeyPress o.ä. ist deshalb überflüssig. Und der Anwender sieht auf den ersten Blick, dass er da nur Zahlen eingeben kann.