delphi让TEdit控件的内容居中或右对齐,限制位数,仅允许输入数字


本文整理自网络,侵删。

 delphi让TEdit控件的内容居中或右对齐,限制位数,仅允许输入数字


SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_CENTER);
Edit1.Invalidate; 

//如果右对齐,将ES_CENTER变成ES_RIGHT
 
//(转自http://blog.csdn.net/wudi_1982/article/details/1205472)
 
//限制输入位数为2
 
Edit1.MaxLength := 2;

 
//只允许输入数字
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9', #3, #13, #8, #22]) then
    key := #0;
end;

相关阅读 >>

Delphi 简单的截图代码

Delphi thread类的创建及使用(关于线程函数的传递例子)

Delphi 中的split 函数

Delphi indy 组件包里的 idhttp 组件使用 get 方法下载文件限速的方法

Delphi 最简单的文件大小bytes转mb

Delphi idhttp的基本用法

Delphi用sendmessage获取目录下所有文件

Delphi 程序窗体最大化、组件居中显示代码

Delphi combobox 下拉事件

Delphi 判断指定字符串是否开头 startstext用法

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...