如题.
解决方案 »
- 求DELPHI4.0安装文件
- 55555555555555!求救!
- 如何让界面内的各控件按界面的增大缩小而同时按比例的增大(缩小)
- 200分求救如何实现同时支持URL地址拖放与本地文件拖放!
- 我com+组件之间的如何调用?
- 今天顺利通过毕业答辩,感谢四个月来Delphi版的兄弟们的帮助,送分略表心意,见者有份
- 中国软件业的程序员认为比较黑的公司清单(另开:只为长春用户)
- 大家来看看这个函数的问题??
- clientsocket 的简单问题
- 怎么像刷屏软件一样捕抓到一个网页的EDIT 或 单选框或复选框。
- 在FR中,复制整个页面,然后粘贴到另外一个页面去,中间花的时间太长了,请问最新的FR中解决了这个问题没有,有什么好的解决方法吗?(另寸为
- 想成立一个 team
procedure Tform1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',#8]) then //#8表示Backspace键
begin
Key := #0; //清除Key中的字符
end;
end;
var
fstyle: dWord;
begin
fstyle := GetWindowLong(Edit1.Handle, GWL_STYLE);
SetWindowLong(Edit1.Handle, GWL_STYLE, fstyle or ES_NUMBER)
end;