那你就寫一個,其它的全部在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;