TEdit

最新推荐文章于 2021-12-10 22:16:01 发布

小小de巫师

最新推荐文章于 2021-12-10 22:16:01 发布

阅读量1k

点赞数

分类专栏： Delphi Xe3 文章标签： Edit

本文链接：https://blog.csdn.net/gfuchao/article/details/8661878

版权

Delphi Xe3 专栏收录该内容

28 篇文章 0 订阅

订阅专栏

//居中显示
SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE)or ES_CENTER);

//限制只能输入数字
procedure TForm4.LabeledEdit2KeyPress(Sender: TObject; var Key: Char);
begin
  if Not(Key in ['0' .. '9', #8]) then // 0..9 #8代表BackSpace键
  Begin
    Key := #0;
    MessageBeep(1); // Beep; 调用系统声音也行!
  end;
end;

// 限制只能数字字母
procedure TForm4.LabeledEdit2KeyPress(Sender: TObject; var Key: Char);
begin
  if not(Key in ['a' .. 'Z', #8]) then // 小写a到大写Z #8代表BackSpace键
  begin
    Key := #0;
    MessageBeep(1); // Beep; 调用系统声音也行!
  end;
end;

//调用API 只能输入数字
setwindowlong(LabeledEdit2.handle, GWL_STYLE	,getwindowlong(LabeledEdit2.handle,GWL_STYLE	) or  ES_NUMBER);