承諾各位要分享的農曆程式, 歷經兩週時間的改寫, 終於完成了, 特別分享給各位
也十分感謝原創者的分享(我直接下載, 不知原創是否樂意...)

http://delphi.ktop.com.tw/board.php?cid=31&fid=77&tid=109633

1. 其實這支還沒有寫完整, 我想釋放出來, 有興趣的可以接續再來發展, 共同交流一下
2. 原碼不是我自己開發的, 連結中有完整記載原創出處, 如有違背著作原則的話, 還請站務大大刪除本文連結
3. 在 DateFmx 的 Win32系統下, 結束 Application, 會引發 Type Error 的錯誤, 我不會改, 如果有前輩可提供指導的話, 十分感謝!
4. 在 Fmx 模式下, 我真正想要達成的是在 月曆表中上下滑動可切換年份, 左右滑動可切換月份, 但實際開發的結果, 因為月曆的部份是在 TLable 上, 後面搭一個 TLayOut, 雖然可以達到我想要的動作, 但如果手勢剛好在 Table 上滑動是不會有反應的, 也就是要在月曆空白處滑動才能切換的了, 這點我無法克服
5. 不知網站發生什麼事, 我無法貼圖上來, 範圍中有附完整的圖片及執行檔及 apk, 可安裝試用就知道我在說什麼了
6. 範例中有提供使用 Frame 的做法及 Form的做法, 如要用 Form的做法, 主程式為 P_Calendar.pas, 如果要使用 Frame的做法, 開一個 new Project, 主程式 unit1, 把 Frame 加進來就可以了, 兩個不要共用, 否則會有錯誤
7. 本範例是以 Berlin 10.1 Update 1 開發, 我沒有太多時間可另開發早期版本
8. 沒有時間可以多做註解, 請見諒

編輯記錄

感謝頸痛分享

編輯記錄