1.可以用TMaskEdit
2.TEdit.OnExit
var
Edt: TEdit;
begin
Edt:= (Sender as TEdit);
try
Edt.Text:= Format('%.2f', StrToFloat(Edt.Text));
except
end;
2.TEdit.OnExit
var
Edt: TEdit;
begin
Edt:= (Sender as TEdit);
try
Edt.Text:= Format('%.2f', StrToFloat(Edt.Text));
except
end;
当然也可以自己控制,
不过可能有点麻烦,没有tmaskedit来的快~