Hallo Gemeinde,
bin neu hier und hab direkt mal eine Frage
es gibt ja viele Beiträge in Sachen
"Eingabe auf Zahlen bzw. Text prüfen"
ok diese Beiträge haben mir auch geholfen, nur ich müsste die Editbox auf Zahlen überprüfen und wenn keine Zahlen drin stehen soll eine showmessage ausgegeben werden. Programieren tuhe ich mit Delphi 2005
PE
Hier mal mein Code
Delphi-Quellcode:
procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', Char(VK_BACK)]) then
showmessage('Nur Zahlen');
Key := #0;
end;
Klappt super, die Showmessage kommt wenn ich irgendwas anderes außer 0-9 und back eingebe, nur er schreibt keine 0-9 mehr in die Edit. Nimmt also die Eingaben die richtig sind auch nicht mehr an.
Bei 0-9 kommt keine Fehlermeldung, er schreibt Sie nur nicht in die Editbox rein.
Kann mir mal einer Helfen
ich hab keine Idee im moment woran es liegen könnte
MFG
Andre