FMX下Edit只能输入数字-白红宇

FMX下Edit只能输入数字

阅读量：4921 次

发布时间：2019-06-11

本文共 508 字，大约阅读时间需要 1 分钟。

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;  var KeyChar: Char; Shift: TShiftState);var  i: Boolean;begin  i := (keyChar <= #8) or (KeyChar<=#8) and (KeyChar<#48) or (KeyChar >#57) ;  if i then    keyChar := #0; //   if not (keyChar in ['0'..'9',#13]) then KeyChar :=#0;end;

在OnKeyDown中判断KeyChar的条件，以前delphi7里一般都在OnKeyPress事件下写

if not (key in ['0'..'9',#13]) then Key :=#0;

XE的FMX里没有OnKeyPress事件，一次在OnKeyDown下写，而Key参数是Word类型，所以要用到KeyChar

转载于:https://www.cnblogs.com/studypanp/p/5114205.html

你可能感兴趣的文章

JQuery EasyUI datagrid pageNumber 分页请求/加载两次

查看>>

.NET里面 abstract class和Interface有什么区别以及用法的展现?

查看>>

redis的数据持久化再讲关于redisAOF RDB工作原理

html自定义checkbox、radio、select —— checkbox、radio篇

Lazarus1.0.2 和 DelphiXE3 的一些异同

查看>>

Rapid 2D-to-3D conversion——快速2D到3D转换