TEdit-Felder

[Peter Hennek]

Wie kann ich erreichen das der Anwender nur Zahlenwerte in ein TEdit-Feld eingeben kann.
Danke für Hinweise.

Gruß ph

[CRA]

füge dies bei

procedure Tform1.edit1keypress <br>
var i:longint;<br>
begin<br>
if not((StrScan('0123456789,',Key) <> nil) or (Key = Char(VK_BACK))) then begin<br>
Key := #0;<br>
end;<br>
for i:=0 to length(EDmenge.text) do begin<br>
if (copy(EDmenge.text,i,1) = ',') and (key=',') then key:=#0;<br>
end;<br>
ein<br>

ein. dann kann der benutzer nur zahlen und ein komma eingeben, du hast also in jedem falle eine zahl

mfg
CR

[Marco E.]

Hallo Peter,

folgende Lösung funktioniert auch wunderbar :<br><br>

<b>procedure</b> TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);<br>
begin<br>
if not (Key in['0'..'9',#13,#8]) then<br>
<b>begin</b><br>
ShowMessage('Geben Sie bitte nur Zahlen ein!');<br>
ComboBox5.Text := '';<br>
Key := #0;<br>
exit;<br>
<b>end;</b><br>
<b>end;</b><br><br>

Gruß,<br>
Marc

[Marco E.]

Hi Peter,

ich noch mal ;-).<br>
Habe dir ganz vergessen die Bedeutung für #13 und #8 zu erklären!<br>
Das hole ich hiermit nach. Außer Zahlen kannst du noch die Returne-Tast betätigen und die Backspace-Taste, falls man sich mal vertippt hat. Ansonsten wird eine Fehlermeldung (typische Windows-Fehlermeldung ;-) ausgegeben).

Ciao,
Marc

[Peter Hennek]

Bedanke mich für die Hinweise

p