【结贴】控件制作

jianth2005

我做个打开Excel的第三方控件，我在Delphi7中可以运行，但是平台要求是Delphi6+SP2，我把我在Delphi7中写的Copy到Delphi6中，编译的时候报错，请帮我看看是怎么回事？？
代码-----------------------------
unit ExcelControl;

interface

uses
  Windows, Messages, SysUtils, Classes,Dialogs,ComObj;

type
  TExcelControl = class(TComponent)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    property CreateExcelApp(Visible:Boolean);
    property OpenExcelFile(sFilename:String);
  end;

procedure Register;

implementation
var
  ExcelApp:Variant;

procedure Register;
begin
  RegisterComponents('QinLue2009', [TExcelControl]);
end;

procedure  TExcelControlCreateExcelApp(Visible:Boolean);
begin
   ExcelApp :=CreateOleObject('Excel.Application');
   ExcelApp.Visible :=True;
end;

procedure  TExcelControl.OpenExcelFile(sFilename:string);
begin
   ExcelApp.WorkBooks.Open(sFilename);
end;

end.

zfang

你网上找delphi资料吧。

jianth2005

不想走那么多弯路啊，我在网上看的
在Delphi 7 中是可以的

zfang

......自己看错误提示，CreateExcelApp不存在与基础类中。

jianth2005

我想自己学组件，
CreateExcelApp方法更定不会在基类中的啊！
这个方法是我自己添加的

zfang

错了，你那声明的是property。下面实现的是用procedure。

amao800613

property CreateExcelApp(Visible:Boolean);
    property OpenExcelFile(sFilename:String);错误!
应该写成过程.
procedure CreateExcelApp(Visible:Boolean);
procedure OpenExcelFile(sFilename:String);

jianth2005

我想公布出它的过程和函数
试试老毛的做法先

jianth2005

非常感谢毛哥，
结贴