delphi中怎样安装cell组件

分类: 电脑/网络 >>软件

问题描述:

我想在delphi中使用华表cell控件，但是delphi中没有这个组件，请问我该怎么样做后，才能正常的在delphi中使用cell组件。

解析:

delphi中如何安装组件有五种情况： 1 只有一个DCU文件的组件。DCU文件是编译好的单元文件，这样的组件是作者不想把源码公布。一般来说，作者必须说明此组件适合Delphi的哪种版本，如果版本不对，在安装时就会出现错误。也正是因为没有源码，给使用者带来了不便，那就是一旦Delphi版本升级，此组件就不能再使用了，当然有的作者给出了几种版本的DCU文件，用户根据需要选择使用。这样的组件的安装方法是：在Component菜单中，选择install ponent，在对话框 "into existing package"页中，单击“Unit file name”后的“Browse”按扭，在打开的文件对话框中，将“文件类型”设定为*.dcu，找到要安装的DCU文件，按OK按钮返回"into existing package"页后再按OK按钮就可以安装了。注意，此时Delphi会提示dclusr40.dpk将被重建，是否继续，OK就可以了。这里是将组件安装到dclusr40.dpk包中，此包从文件名上可以看出是用户自定义组件包，先安装到这个包中吧，下面再讲有关注意事项。安装完毕会有已经将组件注册完的提示信息以及安装到哪个组件页中的信息等，到组件面板上看看，一般会出现一个新的组件页，其中有刚安装的组件。

2、 只有PAS文件或既有PAS又有DCU文件的组件。这种组件因为有PAS文件，也就是说作者提供了源码，这就好办多了。安装的方法和上面是一样的，在文件类型中可以设定为DCU也可以设定为PAS，建议设定为PAS，这样可用你的Delphi重新编译一下，看是否会出现问题。Delphi升级后只能选择PAS文件安装，这样才能重新编译，使得组件能适应新Delphi版本。这样的组件是很值得使用的，根据心铃的经验，没有源码的组件最好不要使用，一是存在Delphi版本升级后无法使用的问题，再者当程序出现问题后用户无法调试组件来判断是否是组件中存在BUG。

3、有dpk文件的组件包。带有dpk文件的组件包一般是有多个组件构成的，也就是说安装后会有多个组件供使用，如果只有一个组件作者一般不会制成DPK文件，使用上面的方式发布就可以了。对于这样的组件包，一般来说会有详细的安装说明文件，如上面提到的RXLIB，由于组件复杂且安装时有先后顺序，作者不提供安装说明用户根本无法正确安装。如果没有安装说明文件，那么用下面的方法安装：在File菜单下，选择”OPEN…”打开dpk文件(文件类型列表框中选*.dpk)，在出现的Package窗口中，工具栏上有Install按钮，按此按钮即可进行安装。如果Install按钮处于无效状态，那么先按Compile按钮编译，一般来说编译之后Install按钮就会处于有效状态，此时再按Install按钮就可以了。

4、 带有Bpl文件的组件包。一般来说这也是由多种组件构成的组件包，它其实是一个动态连接库文件（DLL）。对于这种组件包的安装方法是：在ponent菜单下选择“install packages”，然后单击Add按钮，在打开的文件对话框中找到相应的bpl文件打开返回后，再单击Ok按钮就可以了。

5、ActiveX控件的安装。要安装这类控件，需要先用regsvr32.exe注册，然后选择Component菜单中Import ActiveX Control项。在Import ActiveX Control打开的窗口中，只有已经注册的ActiveX控件才出现在列表中，选中一个然后按Install按钮就可以安装了。如果事先没有用regsvr32.exe注册也可以按ADD按钮找到OCX文件即时注册，注册后再进行安装。

一般比较好的控件里都会有好多dpk，对应delphi的不同版本或此控件所以来的其他包，控件里也会有安装说明，看一看，即使是英文的也很容易，看install部分就可以了，安装控件的时候有的需要先编译其他包，然后才能安装上这个控件，安装完成之后要在tool里的环境选项里的系统查找路径里填上控件的目录，这样delphi启动时才能找到你安装的控件。回答完毕，谢谢。。。。

procedure TForm1.MyOnClick(Sender: Tobject)

begin

ShowMessage((Sender as TLabel).Caption+' is clicked')

end

procedure TForm1.btn1Click(Sender: TObject)

var

i,n:Integer

lbl: TLabel

begin

n:=6

for i:=1 to n do

begin

lbl:= TLabel.Create(Application)

lbl.Parent := Self

lbl.Caption := 'lbl'+IntToStr(i)

lbl.Top := 175

lbl.Height := 75

lbl.Width :=75

lbl.Left := i* lbl.Width + 10

lbl.OnClick := MyOnClick

end

end

---