请问如何设置一个组件的默认值？

我从TComponent派生出了一个组件。  
   
  我的属性KK是这样设置的：  
   
  type  
      TMy   =   class(TComponent)  
      private  
          {   Private   declarations   }  
          Fi:integer;  
      protected  
          {   Protected   declarations   }  
      public  
          {   Public   declarations   }  
      published  
          {   Published   declarations   }  
          property   kk:integer   read   Fi   write   Fi   default   2;  
      end; 问题点数：20、回复次数：3Top

1 楼pilicat（Delphi迷）回复于 2003-02-04 20:38:12 得分 20

将设置默认值的赋值语句写在该组件的构建事件中:  
   
  type  
      TMy   =   class(TComponent)  
      private  
          {   Private   declarations   }  
          Fi:integer;  
      protected  
          {   Protected   declarations   }  
      public  
          {   Public   declarations   }  
          Procedure   Create(Sender:TObject);Override;  
      published  
          {   Published   declarations   }  
          property   kk:integer   read   Fi   write   Fi   default   2;  
      end;  
   
  Procedure   Create(Sender:TObject);  
  begin  
  Fi:=2;  
  end;  
  Top

2 楼pxk（钻石很久远）回复于 2003-02-04 20:41:06 得分 0

Create的重写要不要加上inherited?  
  Procedure   Create(Sender:TObject);  
  begin  
  inherited;  
  kk:=2;  
  end;  
   
  还想问一下，property后面那个default是干什么用的？谢了。Top

3 楼pilicat（Delphi迷）回复于 2003-02-04 20:43:06 得分 0

Default后面的参数好象只是决定了Delphi在存储组件的属性值时,当组件的属性值为多少时不存储.Top

相关问题

• 组件
• 属性
• fi
• 设置
• kk
• tcomponent
• declarations
• published
• tobject
• protected

• 帖主：pxk
• pilicat

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载