//居中显示
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);