edit组件的实用(100分)

  • 主题发起人 主题发起人 deanwj
  • 开始时间 开始时间
D

deanwj

Unregistered / Unconfirmed
GUEST, unregistred user!
请教各位大虾,怎么控制edit组件,让他只输入数字,并且数字中间不能有空格,不能有其他字符
 
在Form的Create中加一句:
SetWindowLong(Edit1.Handle,
GWL_STYLE,GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);
 
在OnKeyPress中:
begin
if (not (key in ['0'..'9','.'])) and (ord(key)<>8) then
key:=#0;
(ord(key)<>8) 为退格键
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['0'..'9']) and (key <>#8) then key:=#0;//数字和退格以外的建,一律为空
end;
 
我给你一个组件吧 floatedt
jsqmail@163.com
 
多人接受答案了。
 
如果要输入浮点数和负数:
if not (key in['-','.','0'..'9']) and (key <>#8) then key:=#0;//数字和退格以外的建,一律为空
 
后退
顶部