标签：string+ string months 技术 解决 begin code adl str
Delphi原生控件支持日期的选择，但对于只选择年月的情况，则没有好的实现。TCCYearMonthSelector正是为解决这个问题而产生的。看看运行效果图：
用法一如即往的简单，这是一个不可视控件，拖一个到Form上，现在只有一个属性Value,设置初始值，然后象下面这样调用:
procedure TKCReportDoc.MenuTextClick(Sender: TObject); begin inherited; CCYearMonthSelector1.Show( procedure(AModalResult: TModalResult; AYear: Integer; AMonth: Integer) var s:string; begin if AModalResult = mrOK then//点击了选择器的确认按钮 begin s:=AYear.ToString+‘-‘+AMonth.ToString.PadLeft(2,‘0‘); CCYearMonthSelector1.Value:=s; CalcInThread(s); end end); end;
这才体现ChinaCock的简单易用，是不是？感兴趣就去ChinaCock(FMX)QQ群：223717588，找专家，又不要你一分钱，他经常这样说。
明天三十，提前给大家拜年！
ChinaCock界面控件介绍-TCCYearMonthSelector
标签：string+ string months 技术 解决 begin code adl str
原文地址：https://www.cnblogs.com/kinglandsoft/p/10349632.html
