本文整理自网络,侵删。
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 将 4 个 byte 合成 1 个 integer 的五种方法 - 回复 "三足乌" 的问题
Delphi 是否是闰年- isleapyear、isinleapyear
Delphi api: setwindowpos改变窗口的位置与状态
Delphi strtofloat 将“字符型”转换成“浮点型”
更多相关阅读请进入《Delphi》频道 >>