4. 定義部件屬性

　　⑴ 屬性的聲明

　　聲明部件的屬性，你要描述：

　　● 屬性名

　　● 屬性的類型

　　● 讀和設(shè)置屬性值的方法

　　至少，部件屬性應(yīng)當(dāng)定義在部件對(duì)象聲明的public部分，這樣可以在運(yùn)行時(shí)很方便地從外部訪問;為了能在設(shè)計(jì)時(shí)編輯屬性，應(yīng)當(dāng)將屬性在published部分聲明，這樣屬性能自動(dòng)顯示在Object Inspector窗口中。下面是典型的屬性聲明：

　　type

　　TYourComponent=class(TComponent)

　　…

　　private

　　FCount: Integer { 內(nèi)部存儲(chǔ)域 }

　　function GetCount: Integer; { 讀方法 }

　　procedure SetCount(ACount: Integer); { 寫方法 }

　　pubilic

　　property Count: Integer read GetCount write SetCount;

　　end;