this.dateTimePicker1.ShowCheckBox=true
//出现复选框
this.dateTimePicker1.Checked=false//不选中
在使用时先判断Checked的状态就可以了。
procedure
TForm1.DateTimePicker1CloseUp(Sender:
TObject)beginDateTime_SetFormat(DateTimePicker1.Handle,
PChar('dd.MM.yy'))end
procedure
TForm1.DateTimePicker1Click(Sender:
TObject)beginif
FDTMDateEmpty
thenbeginDateTimePicker1.Perform(WM_KEYDOWN,
VK_F4,
0)
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)