IBM Rational 系统开发最佳实践工具包	WebSphere MQ 最佳实践 TOP 15

全局变量的简单问题，请进来看看！急！！

楼主qiao1000（乔乔）2006-03-10 15:24:36 在 Delphi / 语言基础/算法/系统设计提问

现在有主窗体Main和单元OopsTelnet
在单元OopsTelnet中声明：
TOopsTelnet = class(TWinControl)
private
FCaretStyle: TCaretStyle;
……
published
property CaretStyle: TCaretStyle read FCaretStyle write SetCaretStyle;
……
在主窗体中引用：
OopsTelnet.CaretStyle:=csLine;

编译时会报错：Undeclared identifier:'CaretStyle'

这还是下载的源代码？请问是哪里需要设置吗？还是声明的位置错了？
问题点数：20、回复次数：10Top

1 楼qiao1000（乔乔）回复于 2006-03-10 16:05:56 得分 0

补充一点：在main中，有use OopsTelnet;Top

2 楼dongliu（一沙一世界，一花一天堂）回复于 2006-03-10 16:39:18 得分 2

project->build xxxx,重新编译一下Top

3 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-10 16:46:26 得分 3

CaretStyle是不是改为FCaretStyle?Top

4 楼qiao1000（乔乔）回复于 2006-03-10 17:02:52 得分 0

dongliu(一沙一世界，一花一天堂)
怎么重新编译，project-build telnet和build all projects都不行啊？Top

5 楼dongliu（一沙一世界，一花一天堂）回复于 2006-03-10 17:18:51 得分 3

把use OopsTelnet;移到上面的use
再不行就检查CaretStyle有没有写错Top

6 楼dongliu（一沙一世界，一花一天堂）回复于 2006-03-10 17:20:13 得分 3

OopsTelnet在定义的时候是TOopsTelnet吗，如果用TOopsTelnet(OopsTelnet).看能不能出来这个属性Top

7 楼qiao1000（乔乔）回复于 2006-03-14 11:47:54 得分 0

还是不行啊！
没人知道了吗？Top

8 楼skertone（）回复于 2006-03-15 12:56:41 得分 3

public
property CaretStyle: TCaretStyle read FCaretStyle write SetCaretStyle;

Top

9 楼Rainstorey（Rain）回复于 2006-03-16 09:05:00 得分 3

published->publicTop

10 楼jiny2873（jiny2873）回复于 2006-03-16 10:00:07 得分 3

property一般定义成public的Top