原創作分享自
http://www.lab-z.com/【2013年01月25日】一个delphi农历控件的demo下载/

修正重點
1. 將 原gb碼格式, 改為 big5 版
2. 修改為 適用台灣曆法格式
3. 原創作只有 win32版本, 新開發 MultiDevice 版本(在 Android 適用, IOs 沒測過), Win也可適用
4. MultiDeivce 加入以手勢為主切換 年月
(1) 在標題的 月 年 以手勢左右滑動可切換
(2) 在 月曆表中上下滑動可切換年, 左右滑動可切換月份
5. 新增 長按可觸發事件 的功能 (LongTap)
6. 優化系統, 美化版面的配置
7. 特別開發出 Frame 的框架用法, 也可使用 Form 模式做法, 範例中都有提供

附加檔案：5816e65a05f55_cnDate.rar

謝謝分享！

請各位把以下 //. mark起來, 因為會造成 "今天" 的判斷失準

procedure Tfram_Calendar.DateChange(MyTime: TDateTime);
var i, S: integer;
StarNo: integer;
Present: TDateTime;
Year, Month, Day: Word;
_DayofWeek : word;
begin

// 如果是同一月份, 就不要重繪該月份日曆
// if (MonthOf(Mytime) = StrtoInt(lbl_ChooseMonth.Text)) and
// (YearOf(Mytime) = StrtoInt(lbl_ChooseYear.Text)) then
// begin
// exit;
// end;


另外把以下兩組 TLable 的 Visible 改為 False, 要不然會出現一個 "初一" 意外日期
Choose_CNday1
Choose_Day1

編輯記錄

請問和
農曆的制作分享

這篇文章內容有一樣嗎？

是一樣的, 只是我把分享的程式放在這裡, 在版區上發言, 因為大家比較常看的是版區, 對於分享區看的人少!

謝謝PD大的分享