那你就??一??,别的的全体在ObjectInspector中指向?@一??:
procedureTForm1.Edit1KeyPress(Sender:TObject;varKey:Char);
var
IntCompIdx:Integer;
stText:string;
begin
if(Ord(Key)=46)then
begin
IntCompIdx:=(SenderasTEdit).ComponentIndex;
stText:=TEdit(Components[IntCompIdx]).Text;
ifPos(.,stText)>1then
Key:=#0;
end;
end;