procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char); begin , #]) then begin Key := #; end else begin if Key = '-' then begin if not string(TEdit(Sender).Text).Contains('-') then begin //光标定位在第一个上 TEdit(Sender).SelStart := ; end else begin…