如题,要求显示的时候只显示到月份就好了,后面不能有“-”,其他的没有要求
解决方案 »
- 请问如何更改ListView换失去焦点时多选行的背景色?谢谢啊
- 紧急求助!!DBGRID多行选择问题.
- 关于指针的取值
- 如何将memo里面的内容存为word文件
- TClassName.Create(???);
- 当我窗口放大时想放大所有窗口上的控键
- 求助:请问哪有Exporter控件组下载
- 一个动画播放器问题请帮助
- delphi出学者入门编什么程序比较好,请大家谈谈自己的学习心得。
- 向各位大侠请教:用Delphi实现动态创建Foxpro表,当字段名为中文时会出问题!急!急!
- delphi嵌套一个webbrowser 如何去掉它的边框
- timeGetTime返回的DWord如何转换成系统时间!!!
可改用cxMaskEdit,因cxMaskEdit的Editmask支持正则表达式,因此你的需求很容易得到满足。
步骤2:写OnChange事件procedure TForm1.cxDateEdit1PropertiesChange(Sender: TObject);
begin
cxDateEdit1.Text := FormatDateTime('YYYY-MM',cxDateEdit1.Date);
end;
搞定。
在FORMSHOW里再初始化一下,就OK了.
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;
谢谢回复。经测试,你的方法确实没有-号了,但是没法用键盘key进去值了。正常控件是可以的。
谢谢回复。
你的方法我试过的,没办法控制键盘输入。
必须允许输入