Zitat von
Aike:
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key='1') or (key='2') {...} then showmessage('Zahl wurde eingegeben')
else showmessage('Keine Zahl eingegeben');
end;
Wenn man die ShowMessage weglässt und stattdessen die Eingabe gleich verbietet funktioniert es nicht (hab ich auch schon öfters hier gesehen und geht nicht).
Zitat von
leddl:
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (not key in ['0'..'9',',',#8]) or
(key = ',' and pos(key, Edit1.text) > 0) then
key := #0;
if (key = ',') and (length(Edit1.Text) = 0) then
Edit1.Text := '0';
end;
Operator ist auf diesen Operatortyp nicht anwendbar.
Funktioniert genauso wenig
Hab die 2 Varianten und noch mehr schon ausprobiert und keine funktioniert
Gruß
Benni