ITPub博客

首页 > 应用开发 > IT综合 > Sender 的應用:所有Edit共用一個過濾格式 (转)

Sender 的應用:所有Edit共用一個過濾格式 (转)

原创 IT综合 作者:amyz 时间:2007-11-16 17:53:34 0 删除 编辑
Sender 的應用:所有Edit共用一個過濾格式 (转)[@more@]

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;


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752019/viewspace-982747/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    3984
  • 访问量
    7338889