各位前輩請教一下:    自製VCL元件如何加入事件程式?? 如在OnEnter加入程式,要如何做?? 另外目前市面上介紹vcl的書好像不多??可否介紹幾本    非常非常的謝謝你,因為有你這世界變的更美好   ☆   ^_^  ☆  °∴°﹒☆°．﹒‧°∴°﹒°．﹒‧°∴°﹒   ﹒‧°∴°﹒☆°．﹒‧°∴°﹒°．﹒‧°∴°﹒﹒‧°∴°﹒☆°．    目前程式如下: unit JKDBDateEdit;    interface    uses   SysUtils, Messages,Dialogs,Classes, Controls, StdCtrls, Mask, DBCtrls,Graphics;    type        TJKDataType = (JkDateTiem, JkString, JkNumber);     TJKDataTypes = set of TJKDataType;     TJKDBDateEdit = class(TDBEdit)     procedure TJKDBDateEdit.EditEnter(Sender: TObject);      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 EditEnter(Sender: TObject); begin   showmessage('sdf'); end;    procedure Register; begin   RegisterComponents('JkDBControls', [TJKDBDateEdit]); end;    end.< >< >

For your case, you may want to override the DoEnter method., e.g.    

unit JKDBDateEdit;    interface    uses
    SysUtils, Messages,Dialogs,Classes, Controls, StdCtrls, Mask, DBCtrls,Graphics;    type
    TJKDataType = (JkDateTiem, JkString, JkNumber);
    TJKDataTypes = set of TJKDataType;
    TJKDBDateEdit = class(TDBEdit)
    private
    { Private declarations }
        FjkAllowAddNew :Boolean;
        FjkAllowEdit :Boolean;
        FJKDataType : TJKDataType;
    protected
    { Protected declarations }
        procedure DoEnter; override;
    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 TJKDBDateEdit.DoEnter;
begin
    showmessage('sdf');
    inherited;
end;    procedure Register;
begin
    RegisterComponents('JkDBControls', [TJKDBDateEdit]);
end;    end.

If you want to create custom event (visible in Objec Inspector), e.g.

TExample = class(TComponent)
private
    FExEvent: TNotifyEvent;
published
    property ExEvent: TNotifyEvent read FExEvent write FExEvent default nil;
end;

And you should always initialize the variables first (

>

------
星期一,二...無窮迴圈＠＠