procedure TfmQTHTD.edtMJ_1KeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if not (Key in ['0'..'9', '.', #08, #13]) then
Key:=#0;
if Key=#13 then
begin
key:=#0;
selectnext(ActiveControl,true,true);
end;
end;
设置文本框为数字
最新推荐文章于 2024-01-31 10:47:53 发布