EdPayKeyPress(Sender: TObject; var Key: Char);
begin
if ord(Key) in [46, 48..57] then
begin
if ord(Key) = 46 then
begin
if EdPay.Text = '' then
begin
Key := #0;
end else
if Pos('.', EdPay.Text) > 0 then
Key := #0;
end;
end else
Key := #0;
end;
TEdit只能输入数据
最新推荐文章于 2019-09-24 09:07:57 发布