Sender 的??用：所有Edit共用一???^?V格式

1. 所有的Edit 都只允?S??入?底郑?即只可以??入一次小?迭c
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;

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



http://www.itcnw.com/

• 打印文档
• 推荐好友
• 
• 返回顶部
• 增大字体
• 减少字体

• 上一篇文章：override deal with window closing in database application
• 下一篇文章：研究心得------->CPU信息的获得，比较全面的