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，找專家，又不要你一分錢，他經常這樣說。

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