期待你的帮助,谢谢
解决方案 »
- 关于GDI+ 帮忙看看错在哪
- 为什么我执行查询可是再dagrid里面不显示数据得呢?
- 问题一有答案,马上结贴!
- 这样的情况怎么填充空格?解决即揭贴!
- ★怎样在继承的时候(即inherited的时候),传递一个参数给父类过程?具体内详。
- 简单问题:怎么把access数据库某个字段的内容无重复的显示出来?
- 关于控件属于那个类的问题?!!
- Treeview的难点???急需帮忙!!
- 一个关于index排序的问题?答完立即给分
- 如何解决DBGrid在Post之前,检测是否重码,给你50分!
- ◆◆◆在窗体被拖拽调整大小后,怎么使窗体上的button的相对位置不变,也就是说在窗体上的位置不变?◆◆◆
- 问 Delphi 人一个不太技术的问题
var
s:integer;
bj:integer;
str:string;
begin
if not (Key in ['0'..'9','.',#8,#13]) then
Key:=#0;
if key<>#8 then
begin
bj:=pos('.',TEdit(Sender).Text);
if bj>0 then
begin
s:=length(TEdit(Sender).Text);
str:=Copy(TEdit(Sender).Text, bj,s-bj);
if length(str)>=2 then
key:=#0;
end;
end;
if Key='.' then
begin
if (Pos('.',TEdit(Sender).Text)<>0)or(Length(TEdit(Sender).Text)=TEdit(Sender).SelLength)or(TEdit(Sender).SelStart=0) then
Key:=#0;
end;
end;
哪儿控件很多。应该能找到。