ChinaCock界面控件介绍-TCCYearMonthSelector

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，找专家，又不要你一分钱，他经常这样说。

明天三十，提前给大家拜年！