第二十八章160開發(fā)新的vcl元件-文庫吧資料
2024-10-08 19:26本頁面
【正文】 。 case 5 : if (Type) FontColor = clGray。 else Color = clFuchsia。 break。 case 3 : if (Type) FontColor = clDkGray。 else Color = clBlue。 break。 case 1 : if (Type) FontColor = clBlack。 else Color = clAqua。 //設(shè)定 SType的值 Show()。 default : Caption = 今天是 + DateToStr(Date())。 case 2 : Caption = 今天是 + DateToStr(Date()) + + days[Date().DayOfWeek() 1]。 case 1 : Caption = 今天是 + days[Date().DayOfWeek() 1]。 switch (SType) { //利用 SType告訴程式要顯示什麼樣的畫面 case 0 : Caption = 今天是 + DateToStr(Date())。 23 281. 製作 VCL元件 ? 範(fàn)例 283：主要程式碼（ ） __fastcall TWeekDate::TWeekDate(TComponent* Owner) : TStaticText(Owner) { Show()。 __fastcall TWeekDate(TComponent* Owner)。 __property int Type = {read = SType, write = SetType, default = 0}。 void __fastcall SetType(int type)。 ? 在 ，大部分都跟範(fàn)例 282一樣，只是在 public那邊加了一個 function進(jìn)去，這個 function的名稱就是 『 SetColor』 。 } } 20 281. 製作 VCL元件 ? 範(fàn)例 282：改善 Code的撰寫方式 – 執(zhí)行結(jié)果 21 281. 製作 VCL元件 ? 範(fàn)例 283：實作一個 VCL元件中的 Method – 範(fàn)例說明 ? 在範(fàn)例程式 283中我們要做的就是在 VCL元件上實做一個 Method出來，這個新增的 Method是 『 SetColor』 。 case 2 : WeekDateType = 2。 case 1 : WeekDateType = 1。 } // void __fastcall TForm1::Button1Click(TObject *Sender) { //根據(jù) ComboBox選的項目的不同而有不同的 Type switch (ComboBox1ItemIndex) { case 0 : WeekDateType = 0。 WeekDateTop = 10。 //宣告一個 TWeekDate物件 // __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { WeekDate = new TWeekDate(this)。在範(fàn)例 282裡，我們主要放置一個下拉式選單和一個 Button來決定要以什麼樣的方式來顯示日期和時間。 //設(shè)定 SType的值 Show()。 default : Caption = 今天是 + DateToStr(Date())。 case 2 : Caption = 今天是 + DateToStr(Date()) + + days[Date().DayOfWeek() 1]。 case 1 : Caption = 今天是 + days[Date().DayOfWeek() 1]。 switch (SType) { //利用 SType告訴程式要顯示什麼樣的畫面 case 0 : Caption = 今天是 + DateToStr(Date())。 17 281. 製作 VCL元件 ? 範(fàn)例 282：主要程式碼（ ） __fastcall TWeekDate::TWeekDate(TComponent* Owner) : TStaticText(Owner) { Show()。 __fastcall TWeekDate(TComponent* Owner)。 //設(shè)定屬性的函式 protected: public: void __fastcall TWeekDate::Show()。 16 281. 製作 VCL元件 ? 範(fàn)例 282：主要程式碼（ ） class PACKAGE TWeekDate : public TStaticText { private: int SType。 –『 __property int Type = {read = SType, write = SetType, default = 0}。 15 281. 製作 VCL元件 ? 範(fàn)例 282：改善 Code的撰寫方式 – 範(fàn)例說明 ? 在範(fàn)例 282的 ，我們獨立了一個 Show的函式出來，這函式呈現(xiàn)的效果其實就是範(fàn)例 281直接寫在 Constructor中那行程式的效果（ CH28_001\ TWeekDate的Constructor中的那行程式）。 ? 在範(fàn)例 283中介紹該如何加入 Method在該 VCL元件中。 ? 現(xiàn)在我們要新增的屬性是 『 Type』 這個屬性，這個屬性用在設(shè)定顯示 Week、 Date、或是 Week
化學(xué)相關(guān)推薦
鄂ICP備17016276號-1