因著 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=39094 文章的討論 所以小弟才寫個功能與程式都簡單的萬年曆小程式 程式中有用到 ColorButton 這個元件 可以在 http://delphi.ktop.com.tw/topic.php?topic_id=41578 找到 感謝 taishyang 版主      備註： ColorButton 的顏色為綠色，是代表當天的日期 若 ColorButton 的顏色為為黃色，則代表此日期下有文字檔 這是小弟第一次上傳作品，寫的不好或太簡單請多多包含 ^^"

附加檔案：41803_Calender.zip

各位版上前輩先進好：    小弟上傳前已有測試過，不過那天晚上測試又發現幾個小問題    檔案已經重新上傳，有問題請再多多指導 

抱歉..給個小建議.. 可否再Memo的ScrollBars屬性設一下..因為有時候事情比較多Memo會裝不下喔~ 您寫的程式真的很棒 我使用的很快樂^^ 感謝您.. 本來想說自己幫您把Memo加上ScrollBar的.. 但是您好像有用到一些自己安裝的元件..所以我無法編譯.. 最後當然還是感謝你寫出這麼方便的程式囉

引言: 抱歉..給個小建議.. 可否再Memo的ScrollBars屬性設一下..因為有時候事情比較多Memo會裝不下喔~ 您寫的程式真的很棒 我使用的很快樂^^ 感謝您.. 本來想說自己幫您把Memo加上ScrollBar的.. 但是您好像有用到一些自己安裝的元件..所以我無法編譯.. 最後當然還是感謝你寫出這麼方便的程式囉

a8960905 您好： 之所以上傳這個程式及原始碼就是想讓版上會員能自行修改 您有什麼需求，當然就可以改，只要您高興就好 : ) 程式中所需安裝的元件小弟在第一篇文章中就有介紹到 您可以參考第一篇文章中的連結，安裝的話在本站也有相關參考文章 如果您像小弟一樣不太會安裝元件，又想增加 Memo 的 ScrollBar 可以留下您的 mail ，小弟會盡快修改好寄給您 也要謝謝您的回文，這還是第一篇來信指導小弟不足的地方

為了方便，小弟也將原來 C 語言 DOS 下執行的版本也貼上  
#pragma hdrstop
#include
#include
#include
#pragma argsused    void main(void)
{
 int day[12]={31,28,31,30,31,30,31,31,30,31,30,31};
 int year,month,days,i;
 while (1)
  {
    clrscr();
    printf("Input 0 for end ．．． \n\n");
    printf("Input the YEAR : ");
    scanf("%d",&year);
    if (year<=0)
    exit(0);
   do
     {
       printf("\nInput the Month : ");
       scanf("%d",&month);
     }  while (month>12);
  if (month<=0)
    exit(0);
  printf("\n") ;
  days=(year-1 (year-1)/4-(year-1)/100 (year-1)/400)%7;
  for (i=0;i2)
     days  ;
     day[1]=29;
   }
  printf("SUN MON TUE WED THU FRI SAT\n\n");
  for (i=0;i<(days 1)%7;i  )
    printf("    ");
  for (i=0;i     
        

流您好,試用了您的程式,很想一探內部運作方式,苦於無法正確開啟專案 我使用的是>> > 程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

------
程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

ENIX007 您好：    小弟向包子哥請益的結果，包子哥給小弟的回應 應該是版本問題，小弟是用 BCB 6    就是小弟在 BCB6 用的 VCL 元件所用到的屬性 在 BCB 5 沒有，所以才會造成這樣的訊息出現    如果您想知道小弟的小時鐘的部分 及萬年曆、Memo、ComboBox 組合的部份 可以留下 mail 給小弟 小弟會將元件放置過程做成 jpg 檔寄給您 您再依著 .h 檔中的 code 貼上就可以了    您看要不要改灌 BCB 6 好了    有問題再討論，祝順心

喔喔...原來是版本的問題... 這麼麻煩您怎麼好意思< > > 感謝您抽空替我尋求解答,也謝謝包子哥解惑< > 程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

------
程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

流您好,在看完source code之後,對於此程式有個建議 如果有不對的地方,也請不吝指教 有關 > 另外發現一個小小的問題,在使用 class="code"> if (ComboBox1->Text == FormatDateTime("mm",Now()) && ComboBox2->Text == FormatDateTime("yyyy",Now())) for (int i=1 ; i<43 ; i ) ((TColorButton *)FindComponent("ColorButton" IntToStr(i)))->Color = clCream ; 應該就可以了... 不知是您遺漏還是別有用意< > 以上是小弟一點點的建議,這是個很棒的程式,我已經拿來用了< > 再次感謝您的分享 程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

------
程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

引言: 流您好,在看完source code之後,對於此程式有個建議 如果有不對的地方,也請不吝指教 有關 > 另外發現一個小小的問題,在使用 class="code"> if (ComboBox1->Text == FormatDateTime("mm",Now()) && ComboBox2->Text == FormatDateTime("yyyy",Now())) for (int i=1 ; i<43 ; i ) ((TColorButton *)FindComponent("ColorButton" IntToStr(i)))->Color = clCream ; 應該就可以了... 不知是您遺漏還是別有用意< > 以上是小弟一點點的建議,這是個很棒的程式,我已經拿來用了< > 再次感謝您的分享 程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

ENIX007 您好： 您提到的那個問題，小弟有請教過 包子哥 大大一個問題 如 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=41643 中小弟的提問 小弟原以為包大哥講的應該就是小弟那樣的寫法呢 ( 太笨了^^" ) 經您小弟心中已有腹案，但不知道是不是您講的那樣 可以請您寫個簡單的 code 說明一下嗎？小弟是真的想了解 至於在 "22日" 這天，所有的年月之顯示只要是有 "22日" 那天 ColorButton 的顏色都會是 MoneyGreen 原因無它，小弟的寫法是參考螢幕右下角的時鐘與萬年曆 感謝您的提問，讓小弟又有學習的機會。謝謝

引言: 您提到的那個問題，小弟有請教過 包子哥 大大一個問題 如 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=41643 中小弟的提問 小弟原以為包大哥講的應該就是小弟那樣的寫法呢 ( 太笨了^^" ) 經您小弟心中已有腹案，但不知道是不是您講的那樣 可以請您寫個簡單的 code 說明一下嗎？小弟是真的想了解

正如包大哥所說的那樣,只是第2個step

引言: (2)然後再把 Button1~Button40 的 OnClick 指到這個 event procedure 就可 以了

您可能會錯意了 以程式中 class="code"> void __fastcall TForm1::ColorButton1Click(TObject *Sender) { if(((TColorButton*)Sender)->Caption!="") { ComboBox3->Text = ((TColorButton*)Sender)->Caption; check() ; } } 到這裡您是知道的,接下來是個人習慣,我會把ColorButton1Click函式名稱改為ColorButtonClick, 因為這段碼是要給46個ColorButton用的(到這裡您了解了吧) 是的,接下來的>下拉 就可以看到剛剛寫好的 > 表達的蠻囉唆的,請多多包含啦< > 另外還有個建議,有關元件命名,例如上面的 > 當然這只是個人的習慣問題... > 程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

ENIX007 您好：    您的解答跟小弟的腹案不一樣 不過您的講解才是王道，小弟又上了一課了 而您提及的元件命名問題，真的也是小弟疏忽 以為程式可以 >) 下次小弟就會記得，順道再加上註解，呵 感謝您的指導