cxDateEdit控件有没有办法处理成只显示到月份的办法？？

Question

如题，要求显示的时候只显示到月份就好了，后面不能有“-”，其他的没有要求

Answer 1

cxDatedate没办法。
可改用cxMaskEdit，因cxMaskEdit的Editmask支持正则表达式，因此你的需求很容易得到满足。

Answer 2

改用其它的组件吧！cxMaskEdit 可以的！

Answer 3

步骤1：将“InputKind”属性设置为“ikStandard”；
步骤2：写OnChange事件procedure TForm1.cxDateEdit1PropertiesChange(Sender: TObject);
begin
  cxDateEdit1.Text := FormatDateTime('YYYY-MM',cxDateEdit1.Date);
end;
搞定。

Answer 4

楼上说的不错.
在FORMSHOW里再初始化一下,就OK了.

Answer 5

叠个edit在上面，要怎么显示都行：
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;

Answer 6

To shang53:
谢谢回复。经测试，你的方法确实没有-号了，但是没法用键盘key进去值了。正常控件是可以的。

Answer 7

to D_Parent：
  谢谢回复。
你的方法我试过的，没办法控制键盘输入。

Answer 8

怎不灵活点呢？我是故意不让输入才用了这句：Edit1.ReadOnly:=true; 去了不就行乐嘛。

Answer 9

to D_Parent：
  必须允许输入