procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key<>vk_0 and key<>vk_1 and key<>vk_2 ...
then
exit;
end;
end;
Shift: TShiftState);
begin
if key<>vk_0 and key<>vk_1 and key<>vk_2 ...
then
exit;
end;
end;
begin
if not key in['0'..'9',#8] then
key:=#0;
end;
key:=chr(0);
begin
if not (key in ['0'..'9']) then
key := #0;
end;
绝对OK!
begin
if not key in['0'..'9',#8] then
key:=#0;
end;