今天收到一封e-mail,裡面要我連去看一個Flash做的Cool時鐘(日本人做的),    保證你沒看過這種時鐘 http://www.lares.dti.ne.jp/%7Eyugo/storage/monocrafts_ver3/03/index.html    ================================================================== 沒寫過程式的會覺得真的好厲害喔!因為我也曾學Flash一陣子,本想用身邊 的照相機拍一些手的短片,將它做成另一種Style的時鐘,但,心想, 在這邊都沒貢獻文章過,所以花了快一個小時,做了這個BCB版的時鐘, 提供新手作為參考...    ps: 本想在改進的,因為沒有必要每秒鐘更新年月日及時分, 只要再加上幾個變數跟判斷就能讓效能較高, 但,如此反而讓程式有點亂,如此簡簡單單,乾乾淨淨, 讓新手更能感受BCB的好用ㄅ~~  ==================================================================== src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10223219&CC=228641"> ==================================================================== //--------------------------------------------------------------------------- void __fastcall TForm1::Timer1Timer(TObject *Sender) { set_time1(Timer1); } //--------------------------------------------------------------------------- void __fastcall TForm1::BitBtn1Click(TObject *Sender) { if(BitBtn1->Caption=="按下啟動") { Timer1->Enabled=true; BitBtn1->Caption="按下停止"; } else { BitBtn1->Caption="按下啟動"; Timer1->Enabled=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { set_time1(this); } //--------------------------------------------------------------------------- void __fastcall TForm1::set_time1(TObject *Sender) { AnsiString temp1; temp1=Now().FormatString("yyyymmddhhnnss"); //將日期格式 格式化成 "年年年年月月日日時時分分秒秒" ImageList1->GetBitmap(StrToInt(temp1.SubString(1,1)),Img_y1->Picture->Bitmap); Img_y1->Refresh(); //當 ImageList1 指定圖形給 Image物件時 , Image須 重繪圖形 ImageList1->GetBitmap(StrToInt(temp1.SubString(2,1)),Img_y2->Picture->Bitmap); Img_y2->Refresh(); ImageList1->GetBitmap(StrToInt(temp1.SubString(3,1)),Img_y3->Picture->Bitmap); Img_y3->Refresh(); ImageList1->GetBitmap(StrToInt(temp1.SubString(4,1)),Img_y4->Picture->Bitmap); Img_y4->Refresh(); ImageList1->GetBitmap(StrToInt(temp1.SubString(5,1)),Img_m1->Picture->Bitmap); Img_m1->Refresh(); ImageList1->GetBitmap(StrToInt(temp1.SubString(6,1)),Img_m2->Picture->Bitmap); Img_m2->Refresh(); ImageList1->GetBitmap(StrToInt(temp1.SubString(7,1)),Img_d1->Picture->Bitmap); Img_d1->Refresh(); ImageList1->GetBitmap(StrToInt(temp1.SubString(8,1)),Img_d2->Picture->Bitmap); Img_d2->Refresh(); ImageList1->GetBitmap(StrToInt(temp1.SubString(9,1)),Img_h1->Picture->Bitmap); Img_h1->Refresh(); ImageList1->GetBitmap(StrToInt(temp1.SubString(10,1)),Img_h2->Picture->Bitmap); Img_h2->Refresh(); ImageList1->GetBitmap(StrToInt(temp1.SubString(11,1)),Img_n1->Picture->Bitmap); Img_n1->Refresh(); ImageList1->GetBitmap(StrToInt(temp1.SubString(12,1)),Img_n2->Picture->Bitmap); Img_n2->Refresh(); ImageList1->GetBitmap(StrToInt(temp1.SubString(13,1)),Img_s1->Picture->Bitmap); Img_s1->Refresh(); ImageList1->GetBitmap(StrToInt(temp1.SubString(14,1)),Img_s2->Picture->Bitmap); Img_s2->Refresh(); } //--------------------------------------------------------------------------- void __fastcall TForm1::Label8Click(TObject *Sender) { ShellExecute(NULL, "open", "http://delphi.ktop.com.tw/", NULL, NULL, SW_SHOWNORMAL); } //--------------------------------------------------------------------------- void __fastcall TForm1::Label8MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { Label8->Font->Color=clRed; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { Label8->Font->Color=clBlue ; } //--------------------------------------------------------------------------- ===三人行必有我師焉===

附加檔案：32664_times.zip