如何控制在edit中只输入数字?
另外我怎么知道一些字符的Key值,如回车键key=13,那么退格键等其它的呢?
另外我怎么知道一些字符的Key值,如回车键key=13,那么退格键等其它的呢?
解决方案 »
- 请问Delphi中如何获得Windows任务管理器中的应用程序任务数
- 高兴, 散分,升到四个钗了,用了6个多月时间。
- 关于动态数组:设为nil的问题
- 急,请问怎样将一些控件放入一个TGroupbox中去,比如说一个button,其中button先放到一个Form里,当我把Groupbox放进去时,button被盖住了.
- 精通dll的高手请进,有事请教
- select distinct查询问题
- 高分请教高手!!!!!!!!一个很急的问题!!!!
- 为什么用 SystemParametersInfo 设置墙纸只会居中显示,平铺和拉伸都不行?
- 谁有Turbo C++工具,急需!
- 关于MaskEdit
- Delphi的QuickRep怎样控制!(有点难度哦)
- 想找兼职
key := #0;
procedure DoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
key:=#0;
messagebeep(1);
end;
#8是退格键,应该让它也起作用
2.很简单
在edit的onkeydown中写
showmessage(inttostr(key))
if key not in [0..9] then key:=#0;在知道Key值,查ASCII 码表,或在Delphi帮助的索引中 敲 Virtual key codes
if not (Key in ['0'..'9',#13,#8,#46]) then//不应该把回车和DEL、BACKSPACE过滤掉
begin
key := #0;
end;