现在有主窗体Main和单元OopsTelnet
在单元OopsTelnet中声明:
TOopsTelnet = class(TWinControl)
private
FCaretStyle: TCaretStyle;
……
published
property CaretStyle: TCaretStyle read FCaretStyle write SetCaretStyle;
……
在主窗体中引用:
OopsTelnet.CaretStyle:=csLine;编译时会报错:Undeclared identifier:'CaretStyle'
在单元OopsTelnet中声明:
TOopsTelnet = class(TWinControl)
private
FCaretStyle: TCaretStyle;
……
published
property CaretStyle: TCaretStyle read FCaretStyle write SetCaretStyle;
……
在主窗体中引用:
OopsTelnet.CaretStyle:=csLine;编译时会报错:Undeclared identifier:'CaretStyle'
只有这个
这样定义实列