Zitat von
RavenIV:
versuch mal den Maskedit (bei Komponenten unter "Zusätzlich"), da kann man Masken definieren.
Gänzlich ungeeignet.
Das geht einfach mit nem ganz normalen TEdit. Im
OnKeyPress prüfst du einfach nur ob die Taste eine von dir gewünschte ist, wenn nicht dann wird sie ignoriert.
Hier hast du mal den Code, nur Zahlen & der "." werden akzeptiert:
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in[#08,#46,#48..#57]) then key:=#0;
end;
Noch kurz zur Erklärung: #46 ist der Punkt, #48 bis #57 sind die Ziffern von 0 bis 9.
Die jeweiligen # - Werte kannst du z.B. aus jeder beliebigen
ASCII-Code Tabelle ablesen.
//Edit: Noch #08 hinzugefügt, wenn du zum nächsten Feld springen willst, #13 ist die Entertaste.