红鱼儿

公告

统计

  • 随笔 - 97
  • 文章 - 1
  • 评论 - 18
  • 引用 - 0
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,找专家,又不要你一分钱,他经常这样说。

明天三十,提前给大家拜年!

 

posted on 2019-02-03 09:21 红鱼儿 阅读(...) 评论(...) 编辑 收藏