闲来无事，给 EDIT 控件添加几个小属性。 (300分)

  • 主题发起人 主题发起人 zhihuali
  • 开始时间 开始时间
我倒希望你的显示器天天如此，要不大家怎么拿分！
 
谢谢你了。
 
大侠，好样的！学习！
 
有一个小问题不明白,事件是如何被编译和出来的?请大侠说一下,事件的处理过程,以及如何
连接?
 
又学一招
 
呵呵～有意思。收藏一下。
 
stMoney:
begin
if not (Key in ['0'..'9', '.', Chr(8)]) then Key := #0;
if (Key = '.') and (Pos(Key, Text) > 0) then Key := #0;
if (Pos('.', Text) > 0) and (Key <> Chr(8)) and
((Length(Text) - Pos('.', Text)) >= 2) then Key := #0;
end;
还不算很完善！应该是小bug吧！：）
 
给分，但下次别用日本货。
 
[:)]只要代码不要分，，谢谢
 
真的是精彩!
 
但愿你天天都有好心情，我也天天有分拿，嘻嘻！！
 
送分？
不要白不要。
 
有些功能做成組件好象沒有什麼必要吧
不過做成組件可以對破解者又多一道屏障！確是不錯
 
呵呵！好货不露
谢谢
 
procedure TStyleEdit.SetInputStyle(Value: TSetInputStyles);
begin
if Value <> FInputStyle then
begin
FInputStyle := Value;
RecreateWnd;//[red]<--增加的代码[/red]
end;
end;
 
您必须登录或注册才可回复。

Similar threads

I
Edit&Memo控件的文本得对齐方式
回复
0
查看
702
import
I
I
控件属性数据的保存
回复
0
查看
491
import
I
I
一个超级连接控件
回复
0
查看
527
import
I
I
一个热键控件
回复
0
查看
682
import
I
I
一个键盘Hook控件
回复
0
查看
676
import
I
后退
顶部