Sender 的應用：所有Edit共用一個過濾格式

作者： swayi21

1. 所有的Edit 都只允許輸入數字，即只可以輸入一次小數點
2. 不想對多達幾十個的Edit 都寫onKeyPress 事件

那你就寫一個，其它的全部在Object Inspector 中指向這一個：
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
IntCompIdx: Integer;
stText: string;
begin
if (Ord(Key) = 46) then
begin
    IntCompIdx := (Sender as TEdit).ComponentIndex;
    stText := TEdit(Components[IntCompIdx]).Text;
    if Pos(´.´, stText) > 1 then
      Key := #0;
end;
end;

如果不覺得難看的話也可以不用變量：
if (Ord(Key) = 46) and
(Pos(´.´, TEdit(Components[(Sender as TEdit).ComponentIndex]).Text) > 1)then
Key := #0;

返回顶部

下一篇：override deal with window closing in database application >>

· 设置全局快捷键
· 防止用DeDe软件反编译delphi程序
· 用Delphi创建COM+ 应用服务器(一)
· 分布组件对象模型(DCOM)研究
· TManagedDataSet和DataSetPool的实现
· 利用Delphi编写Socket通信程序
· 在DELPHI中更简单的存取JPEG文件到SQLSERVER数据库
· Delphi Shell
· 用Delphi创建COM+ 应用服务器(三)
· 在Delphi 中用程序实现自定义窗体的创建和显示顺序（2）
· NeHe的opengl教程delphi版(1)----基本框架
· NeHe的opengl教程delphi版(2)----创建三角形和四边形
· NeHe的opengl教程delphi版(3)----着色
· 异类的屏幕保护
· NeHe的opengl教程delphi版(4)----旋转
· 组件实例的命名规则
· 打造Delphi中字符串的replace函数
· NeHe的opengl教程delphi版(5)----3D
· 动态生成合计
· TListView组件使用方法
· 控件treeview的使用
· 正确看待《Delphi高手突破》最后一章的实例
· NeHe的opengl教程delphi版(6)----纹理映射(贴图)
· 软件试用期及试用次数控制（附部分关键代码）！
· IE 代理服务器设置程序实现
· 在Delphi中自己建立交叉表
· 通过实例看VCL组件开发全过程（一）
· 通过实例看VCL组件开发全过程（二）
· 通过实例看VCL组件开发全过程（四）
· 2003年Delphi Informant杂志读者选择奖
· Delphi代码创建形式规范
· 使用互斥对象让程序只运行一次
· TListView组件显示文件夹中的文件
· tlistview使用--拖放操作
· NeHe的opengl教程delphi版(7)----滤波
· Win32调试API学习心得(一)
· Delphi7下仿Ado.Net类的实现
· windows消息大全