这样为什么不能继承TButton的属性？

我这样定义的，结果TMyButton根本不能继承TButton的Font属性．  
   
  type  
  IMyComponent=interface  
  ['{1664A3A0-8580-11D5-880F-525400DCAB5A}']function   WriteColor:   Boolean;  
  function   ReadFont(FilePath:   String):   Boolean;  
  end;  
   
  TMyButton=Class(TButton,IMyComponent)  
  protected    
  function   ReadFont(FilePath:   String):Boolean;   virtual;    
  end;  
  问题点数：30、回复次数：4Top

1 楼fang_feng（方）回复于 2001-08-02 21:31:17 得分 0

help!!!Top

2 楼C_Sharp（www.borlan.net）回复于 2001-08-02 22:01:27 得分 0

当然可以的.Top

3 楼C_Sharp（www.borlan.net）回复于 2001-08-02 22:03:47 得分 30

这是抄你的代码做的：  
  unit   Unit1;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,  
      Dialogs,   StdCtrls;  
   
  type  
      IMyComponent=interface  
          ['{930EBBF7-B542-4F63-9BB7-BE0C464052DA}']  
          function   ReadFont(FilePath:   String):   Boolean;  
          function   WriteColor:   Boolean;  
      end;  
   
      TMyButton   =   Class(TButton,   IMyComponent)  
          protected  
              function   ReadFont(FilePath:   String):   Boolean;  
              function   WriteColor:   Boolean;  
      end;  
   
      TForm1   =   class(TForm)  
          Button1:   TButton;  
          procedure   Button1Click(Sender:   TObject);  
      private  
          {   Private   declarations   }  
      public  
          {   Public   declarations   }  
      end;  
   
  var  
      Form1:   TForm1;  
   
  implementation  
   
  {$R   *.dfm}  
   
  {   TMyButton   }  
   
  function   TMyButton.ReadFont(FilePath:   String):   Boolean;  
  begin  
      Result   :=   True;  
  end;  
   
  function   TMyButton.WriteColor:   Boolean;  
  begin  
      Font.Name   :=   '@MS   Mincho';  
      Font.Size   :=   16;  
      Result   :=   True;  
  end;  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      l:   TMyButton;  
  begin  
      l   :=   TMyButton.Create(Self);  
      l.Parent   :=   Self;  
      l.Caption   :=   '你好';  
      l.WriteColor;  
  end;  
  Top

4 楼WuHeHai（风之影）回复于 2001-08-02 22:18:23 得分 0

可以的！Top

相关问题

• readfont
• tbutton
• imycomponent
• writecolor
• tmybutton
• filepath
• boolean
• tform
• function

• 帖主：fang_feng
• C_Sharp

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