第二十八章160開發(fā)新的vcl元件(編輯修改稿)
2025-10-22 19:26 本頁面
【文章內(nèi)容簡介】 e())。 } } // void __fastcall TWeekDate::SetType(int type) { SType = type。 //設(shè)定 SType的值 Show()。 //設(shè)定 SType後就直接顯示時間 } 18 281. 製作 VCL元件 ? 範例 282：改善 Code的撰寫方式 – 當我們設(shè)計好 ，跟範例 281一樣，接下來的動作就是產(chǎn)生一個 Project來負責處理開 VCL元件的顯示。在範例 282裡，我們主要放置一個下拉式選單和一個 Button來決定要以什麼樣的方式來顯示日期和時間。 19 281. 製作 VCL元件 ? 範例 282：主要程式碼（ ） include //將所需要的 header file include進來 TWeekDate *WeekDate。 //宣告一個 TWeekDate物件 // __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { WeekDate = new TWeekDate(this)。 //將 WeekDate new出來 WeekDateParent = this。 WeekDateTop = 10。 WeekDateLeft = 10。 } // void __fastcall TForm1::Button1Click(TObject *Sender) { //根據(jù) ComboBox選的項目的不同而有不同的 Type switch (ComboBox1ItemIndex) { case 0 : WeekDateType = 0。 break。 case 1 : WeekDateType = 1。 break。 case 2 : WeekDateType = 2。 break。 } } 20 281. 製作 VCL元件 ? 範例 282：改善 Code的撰寫方式 – 執(zhí)行結(jié)果 21 281. 製作 VCL元件 ? 範例 283：實作一個 VCL元件中的 Method – 範例說明 ? 在範例程式 283中我們要做的就是在 VCL元件上實做一個 Method出來，這個新增的 Method是 『 SetColor』 。利用這個方法我們可以很輕易的設(shè)定所顯示出來的文字的顏色。 ? 在 ，大部分都跟範例 282一樣，只是在 public那邊加了一個 function進去，這個 function的名稱就是 『 SetColor』 。 22 281. 製作 VCL元件 ? 範例 283：主要程式碼（ ） class PACKAGE TWeekDate : public TStaticText { private: int SType。 void __fastcall SetType(int type)。 protected: public: void __fastcall TWeekDate::Show()。 __property int Type = {read = SType, write = SetType, default = 0}。 //底下的宣告就是該 VCL元件中設(shè)定顏色的 Method void __fastcall TWeekDate::SetColor(int index, int type)。 __fastcall TWeekDate(TComponent* Owner)。 __published: }。 23 281. 製作 VCL元件 ? 範例 283：主要程式碼（ ） __fastcall TWeekDate::TWeekDate(TComponent* Owner) : TStaticText(Owner) { Show()。 //執(zhí)行顯示結(jié)果的函式 } // void __fastcall TWeekDate::Show() { AnsiString days[7] = {Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday }。 switch (SType) { //利用 SType告訴程式要顯示什麼樣的畫面 case 0 : Caption = 今天是 + DateToStr(Date())。 break。 case 1 : Caption = 今天是 + days[Date().DayOfWeek() 1]。 break。 case 2 : Caption = 今天是 + DateToStr(Date()) + + days[Date().DayOfWeek() 1]。 break。 default : Caption = 今天是 + DateToStr(Date())。 } } // void __fastcall TWeekDate::SetType(int type) { SType = type。 //設(shè)定 SType的值 Show()。 //設(shè)定 SType後就直接顯示時間 } 24 281. 製作 VCL元件 ? 範例 283：主要程式碼（ ） void __fastcall TWeekDate::SetColor(int index, int Type) { switch (index) { //根據(jù)不同的顏色和項目做不同的設(shè)定 case 0 : if (Type) FontColor = clAqua。 else Color
化學相關(guān)推薦
鄂ICP備17016276號-1