procedure TForm1.FormCreate(Sender: TObject);begin
MaskEdit1.EditMask := '!\(999\)000-0000;1';
MaskEdit1.Text = '';
MaskEdit1.AutoSelect := False;
end;照着这个程序修改一下!
MaskEdit1.EditMask := '!\(999\)000-0000;1';
MaskEdit1.Text = '';
MaskEdit1.AutoSelect := False;
end;照着这个程序修改一下!
日 :月:年