限制TEdit 内只能输入数字

 限制TEdit内只能输入数字值

 

----KeyPress事件------
 
if not (key in['0'..'9',#8]) then key:=#0;     //（#8为BackSpace键）

 

弹出式对话框

--------------------

if Application.MessageBox('确认操作?', '提示',MB_YESNO+MB_ICONINFORMATION)=IDYES then
begin

    xxxxxxxxxxxxxxxxxx;
end;

 

 

 

 

 

 

 

 

2009-11-04