月光软件站 - 编程文档 - Delphi - Sender 的應用：所有Edit共用一個過濾格式

Delphi

本类阅读TOP10

·分布式网络考试系统原型分析及实现
·游戏外挂设计技术探讨①
·使用HOOK随心监视Windows
·Delphi 水晶报表打包解决
·试题库开发中非文本数据的处理
·如何将几个DBGRID里的内容导入同一个EXCEL表中....的问题
·如何使用Delphi设计强大的服务器程序
·工人线程中关闭窗体的实现
·用DLL方式封装MDI子窗体。
·支持XP下托盘栏气球提示的托盘单元

→ 分类导航

VC语言	Delphi
VB语言	ASP
Perl	Java
Script	数据库
其他语言	游戏开发
文件格式	网站制作
软件工程	.NET开发

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

作者：未知来源：月光软件站 加入时间：2005-2-28　月光软件站

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;

相关文章：

相关软件：