在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
使用这种功能必须使用 OnKeyPress 事件,该事件是在窗体中获得键盘输入的焦点,并且在用户按键时发生。OnKeyPress 事件中有个重要参数:Key。Key 参数为Char 型,它能够获得用户的按键值。下面的代码就只能输入0~9 之间的数字,且只能输入一个小数点,按下其他键时无效。 1 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 2 begin 3 if not (key in ['0'..'9','.',#8]) then 4 key:=#0; 5 if (key='.') and (Pos('.',Edit1.Text)>0) then 6 key:=#0; 7 end;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论