【结贴】创建公用函数**

zywindy · 发表于 2009-3-3 10:47:43

我每个窗体中都要有以下三句代码
datagrid1.HeaderColor := TSettingLib.GetConfig.HeaderColor;
AbGradient1.GradSettings.ColorTo :=TSettingLib.GetConfig.ColorTo;
AbGradient1.GradSettings.ColorFrom := TSettingLib.GetConfig.ColorFrom;
这样我修改和后期维护起来都很麻烦，能不能写个通用函数，在每个窗体中只要调用这个函数就行呢？

zfang · 发表于 2009-3-3 10:50:30

可以做一个基础的功能或者文档，然后其他都继承他。
或者做一个资源集，开放一个方法，然后每个功能或者文档调用它。

zywindy · 发表于 2009-3-3 10:53:01

因为我现在窗体都已经创建完了，我想做个资源集，那这个方法怎么写呢？主要是参数不会定义

zfang · 发表于 2009-3-3 10:54:06

传组件的方式。
比如：function setcolor（dg : TDataGrid;）

lixy · 发表于 2009-3-3 10:55:25

datagrid1,AbGradient1:tdatagrid

zywindy · 发表于 2009-3-3 10:55:41

我知道是这个方法，你能详细写一个代码吗？主要传递datagrid1和AbGradient1这两个组件

lixy · 发表于 2009-3-3 11:13:18

什么地方不会写？

zywindy · 发表于 2009-3-3 13:40:42

function setcolor(DG: TDataGrid;AG: TAbGradient): String;
我创建了一个资源集，然后在资源集中创建了这个函数，可是编译的时候提示[错误]Biz:\AQGLXTSPACE\WJJ1\YSHS.Library.pas(14, 27): Undeclared identifier "TDataGrid"
[错误]Biz:\AQGLXTSPACE\WJJ1\YSHS.Library.pas(14, 27): Undeclared identifier "TAbGradient"

lixy · 发表于 2009-3-3 14:11:32

TDataGrid,TAbGradient你查查建模工具的帮助或者你对应看看窗体的单元上引用的单元，然后在资源集里面引用对应的单元。（uses里面添加）

zywindy · 发表于 2009-3-3 14:27:08

这个问题解决了，还有一个问题就是如果窗体中只有一个AbGradient控件的话，调用这个函数怎么办？在事件中加个什么判断？

		自动登录	找回密码
密码			立即注册