Edit Feld mit Eingabe Beschränkung

[renekr]

Hi,
Ihr seit die Besten.
Wow Herzlichen Dank.

Habe es noch ein bisschen verfeinert:

Delphi-Quellcode:

  if Key = ',' then Key := '.';// das ist neu, macht aus , einen Punkt
    // Nur '.', Zahlen und Backspace zulassen
  If not (Key in [#46, #48..#57, #8]) then
    Key := #0;

  // Wenn mehr als 2 Nachkommastellen und Taste kein Backspace -> ignorieren
  If (Pos('.', Edit1.Text) <> 0) then
  begin
   if Key = '.' then Key := #0; // <---
      // <--- die beiden Zeilen hier sind neu, Rest wie bei ManuMF
   if (Length(Edit1.Text) - Pos('.', Edit1.Text) >= 2) then
   begin
     if (Key <> #8) then
       Key := #0;
   end;
  end;

Frohe Weihnachten und nochmals Vielen Dank.