cxDateEdit控件有没有办法处理成只显示到月份的办法??
如题,要求显示的时候只显示到月份就好了,后面不能有“-”,其他的没有要求
[解决办法]
cxDatedate没办法。
可改用cxMaskEdit,因cxMaskEdit的Editmask支持正则表达式,因此你的需求很容易得到满足。
[解决办法]
改用其它的组件吧!cxMaskEdit 可以的!
[解决办法]
步骤1:将“InputKind”属性设置为“ikStandard”;
步骤2:写OnChange事件
- Delphi(Pascal) code
procedure TForm1.cxDateEdit1PropertiesChange(Sender: TObject);begin cxDateEdit1.Text := FormatDateTime('YYYY-MM',cxDateEdit1.Date);end;
[解决办法]
叠个edit在上面,要怎么显示都行:
- Delphi(Pascal) code
procedure TForm1.cxDateEdit1PropertiesChange(Sender: TObject);begin Edit1.Text:=FormatDateTime('YYYYMM',cxDateEdit1.Date);//仅显示年和月// Edit1.Text:=FormatDateTime('MM',cxDateEdit1.Date);//仅显示月end;procedure TForm1.FormCreate(Sender: TObject);begin Edit1.BorderStyle:=bsNone; Edit1.Ctl3D:=false; Edit1.Top:=cxDateEdit1.Top+2; Edit1.Left:=cxDateEdit1.Left+2; Edit1.Height:=cxDateEdit1.Height-4; Edit1.Width:=cxDateEdit1.Width-24; Edit1.BringToFront; Edit1.ReadOnly:=true;end;