Tach
ich wollte mal wissen, wie ich verhindern kann, dass jemand Buchstaben in mein Edit-Feld eingibt. Das habe ich so probiert, ging aber nicht:
Delphi-Quellcode:
procedure TfrmRechner.edEingabeKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var i:integer;
buchstabe:boolean;
Zahl:array[0..9] of integer;
begin
buchstabe:=false;
for i:=0 to 9 do
zahl[i]:=i;
for i:=0 to 9 do
begin
if Key<>zahl[i] then
buchstabe:=true;
if Key=zahl[i] then
buchstabe:=false;
if not Buchstabe then
break;
end;
if Buchstabe then
Key:=0; //was besseres ist mir nicht eingefallen. gibt 's denn sowas wie Key:=''?
end;