Edit Feld mit Eingabe Beschränkung

[ManuMF]

Hallo,

Einfach das OnKeyPress-Event nutzen:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  // 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 (Length(Edit1.Text) - Pos('.', Edit1.Text) >= 2) then
   begin
     if (Key <> #8) then
       Key := #0;
   end;
  end;
end;

Gruß,
ManuMF