請問各位前輩,VCL元件開發如何增加自定的屬性清單 如加一個 屬性名為 :JKDataType 內容可為 :JkDateTiem ==1 JkString ==2 JkNumber ==1 謝謝各位前輩!! ^_^ 非常非常的謝謝你,因為有你這世界變的更美好 ☆ ^_^ ☆ °∴°﹒☆°．﹒‧°∴°﹒°．﹒‧°∴°﹒ ﹒‧°∴°﹒☆°．﹒‧°∴°﹒°．﹒‧°∴°﹒﹒‧°∴°﹒☆°． TJKDBDateEdit = class(TDBEdit) private { Private declarations } FjkAllowAddNew :Boolean; FjkAllowEdit :Boolean; FjkColor :TColor; protected { Protected declarations } public { Public declarations } published { Published declarations } Property jkAllowAddNew : Boolean Read FjkAllowAddNew Write FjkAllowAddNew; Property jkAllowEdit :Boolean Read FjkAllowEdit Write FjkAllowEdit; Property jkcolor :TColor Read Fjkcolor Write Fjkcolor; end;

可以在Type之後 ..定義 Type TJKDataType = (JkDateTiem,JkString,JkNumber); Private FJKDataType = TJKDataType; Procedure SetJKDataType(Value:TJKDataType); Publish Property JKDataType:TJKDataType read FJKDataType Write SetJKDataType ... .. 老實說,我不大瞭解你的意思

加入集合型的屬性還要加上一條語句 TJKDataType = (JkDateTiem, JkString, JkNumber); TJKDataTypes = set of TJKDataType;//ADD published property JKDataTypes: TJKDataTypes read FJKDataTypes write SetJKDataTypes;

謝謝n/a 及Rain前輩,目前可以了 但有一問題再請教一下?? TJKDBDateEdit = class(TDBEdit)這一行一定要放最後嗎?? 如不放最後不行?? type //TJKDBDateEdit = class(TDBEdit) ;<<為何放這不行 TJKDataType = (JkDateTiem, JkString, JkNumber); TJKDataTypes = set of TJKDataType;//ADD TJKDBDateEdit = class(TDBEdit) unit JKDBDateEdit; interface uses SysUtils, Classes, Controls, StdCtrls, Mask, DBCtrls,Graphics; type TJKDataType = (JkDateTiem, JkString, JkNumber); TJKDataTypes = set of TJKDataType;//ADD TJKDBDateEdit = class(TDBEdit) private { Private declarations } FjkAllowAddNew :Boolean; FjkAllowEdit :Boolean; FJKDataType : TJKDataType; protected { Protected declarations } public { Public declarations } published { Published declarations } Property jkAllowAddNew : Boolean Read FjkAllowAddNew Write FjkAllowAddNew; Property jkAllowEdit :Boolean Read FjkAllowEdit Write FjkAllowEdit; Property JKDataType:TJKDataType read FJKDataType Write FJKDataType ; end; procedure Register; implementation procedure Register; begin RegisterComponents('JkDBControls', [TJKDBDateEdit]); end; end.

TJKDBDateEdit = class(TDBEdit)放在前面也是可以的，當然它的所有屬性和方法也必須提前，這樣即可 TJKDBDateEdit = class(TDBEdit) end; TJKDataType = (JkDateTiem, JkString, JkNumber);