图文解说ChinaCock日期组件CCDateTimePicker(一)
最新的ChinaCock组件包增加了日期输入控件CCDateTimePicker,支持各类日期、时间的输入,完美取代delphi自带的日期输入控件。如下图,输入日期的样式:
具体来说,通过该控件的PickerType属性,目前支持以下类型的日期输入:
例如:选择Year类型:只输入年度,如下图,非常简洁:
接下来,看一下具体的调用代码,同样方便:
CCDateTimePicker1.Show( // procedure(AResult: TModalResult; ADateTime: TDateTime) begin if AResult = mrOK then begin // 也可以直接访问self.CCDateTimePicker1.DateTime edtValue.Text:= FormatDateTime('yyyy年mm月dd日', ADateTime); end else begin self.Toast.ToastMessage('取消选择'); end; end);
通过Show方法,加入回调函数,当用户点确定后,在这个回调方法中,我们可以使用用户选择的日期,当然,也可以直接用CCDateTimePicker的DateTime属性来取得用户输入的值。
默认情况下,输入界面是蓝色的风格,如果与你界面的风格不符,可以通过ThemeColor来控件,像上面的截图,我改成了SeaGreen,还可以进一步定制选择区的风格:
CCDateTimePicker1.themecolor := talphacolors.red; // 主题色 CCDateTimePicker1.ClearButtonColor := talphacolors.red; // 清除按钮 CCDateTimePicker1.ViewRectFillColor := talphacolors.Yellow; // 选中区域背景色 CCDateTimePicker1.ViewRectStrokeColor := talphacolors.red; // 选中区域边框色